Select Code to Download

use Data::Dumper;
use MLDBM qw( DB_File );
...

my $h = hash_init2();
print Dumper $h;