Select Code to Download

tie (%cryptohash, 'DB_File', undef, O_RDWR|O_CREAT, 0644, $DB_BTREE)
    or die "Database error: $!";

#!perl

...

untie %cryptohash;
untie %testhash;