On the other hand, this works:

#!/usr/bin/perl -w
use warnings ;
use strict ;
use DB_File ;
my %h;
unlink "data" ;
tie %h, "DB_File", "data", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cann
+ot open file 'data': $!\n";

print "Content-type:text/html\n\n";

foreach my $key (sort keys %h) {
    print "<br>$key -> $h{$key}\n";
}
[download]

But I get an empty result, no output. (Possible that's what's in the file, I suppose, but seems odd for a 65kb file.)