--- dbcolmultiscale.O	Wed Feb 12 15:15:35 2003
+++ dbcolmultiscale	Wed Feb 12 15:15:50 2003
@@ -127,7 +127,6 @@
     push(@INC, $dblibdir);
 }
 use DbGetopt;
-use FileCache;
 require "$dblibdir/dblib.pl";
 
 @orig_argv = @ARGV;
--- dbmultistats.O	Wed Feb 12 15:08:07 2003
+++ dbmultistats	Wed Feb 12 15:09:28 2003
@@ -57,7 +57,6 @@
     push(@INC, $dblibdir);
 }
 use DbGetopt;
-use FileCache;
 require "$dblibdir/dblib.pl";
 
 @orig_argv = @ARGV;
@@ -112,13 +111,13 @@
 	# open a new file
 	$path = $tag_files{$tag} = &db_tmpfile(TMP);
 	close(TMP);
-	cacheout $path;
-	print $path "$col_headertag data\n";
+	open PATH, ">>$path";
+	print PATH "$col_headertag data\n";
 	$tag_counts{$tag} = 1;
     };
     $path = $tag_files{$tag};
-    cacheout $path;
-    print $path "$val\n";
+    open PATH, ">>$path";
+    print PATH "$val\n";
 };
 
 @dbstats_args = ("$dbbindir/dbstats");
@@ -131,8 +130,7 @@
 foreach $tag (sort keys %tag_files) {
     # close it
     $path = $tag_files{$tag};
-    cacheout $path;
-    close($path);
+    close(PATH);
 
     open(FROMMEAN, join(" ", @dbstats_args) . " <$tag_files{$tag} |") || die "$prog: cannot run dbstats.\n";
     @meanout = <FROMMEAN>;    
--- dbrowsplituniq.O	Wed Feb 12 15:10:08 2003
+++ dbrowsplituniq	Wed Feb 12 15:14:43 2003
@@ -77,7 +77,6 @@
 require "$dblibdir/dblib.pl";
 use DbGetopt;
 use English;
-use FileCache;
 
 @orig_argv = @ARGV;
 my($prog) = &progname;
@@ -130,8 +129,8 @@
     my($path) = $prefix . $index . ".jdb";
     $index++;
     $keys_to_paths{$key} = $path;
-    cacheout $path;
-    write_header_fh_tag($path, $col_headertag);
+    open $fh, ">>$path";
+    write_header_fh_tag($fh, $col_headertag);
     return $path;
 }
 
@@ -141,15 +140,15 @@
         &split_cols;
 	] . $code . q[
 	my($path) = &key_to_path($key);
-	cacheout $path;
-	write_these_cols_fh($path, @f);
+	open $fh, ">>$path";
+	write_these_cols_fh($fh, @f);
     };
     # cleanup
     foreach (values %keys_to_paths) {
-	cacheout $_;
-	delayed_write_comments($_);
-	print $_ "#  | $prog ", join(" ", @orig_argv), "\n";
-	close $_;
+	open $fh, ">>$_";
+	delayed_write_comments($fh);
+	print $fh "#  | $prog ", join(" ", @orig_argv), "\n";
+	close $fh;
     };
 ];
 print $loop if ($debug);
