Select Code to Download

    #read
    tie %test, "NDBM_File", 'mtime', O_RDWR|O_EXCL, 0644;
...
        print "$_: $test{$_}\n";
    }
    untie %test;

    #read
    tie %test, "NDBM_File", 'type', O_RDWR|O_EXCL, 0644;
...
        print "$_: $test{$_}\n";
    }
    untie %test;