Select Code to Download

    tie %data_hash, "SDBM_File", "data_dbm_file", O_RDWR|O_CREAT, 0666
+ || die "Cannot open file 'data_dbm_file': $!\n";
    %data_hash = ();
...
    }
    untie %data_hash;
    $sth->finish();

bogA4dxaWfeMo:Namen_
bogA4dxaWfeMo:Namen_
...
bogA4dxaWfeMo:Namen
acbogA4dxaWfeMo:Namen
abogA4dxaWfeMo:Namen

tie %h, "DB_File", "data", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cann
+ot open file 'data': $!\n";
 
...
foreach my $key (sort keys %h) {
    print "<br>$key -> $h{$key}\n";
}