tie %h, "DB_File", "data", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cannot open file 'data': $!\n";
 
print "Content-type:text/html\n\n";
 
foreach my $key (sort keys %h) {
    print "<br>$key -> $h{$key}\n";
}