use AnyDBM_File;
use DB_File;
use DirHandle;
use FileHandle;

dbmopen(%TEST, "/home/lab/access.db", 0666) or die "Can't open access file: $!";
print "test1 \n";

while (($key,$val) = each %TEST) {
    print $key, ' = ', unpack('L',$val), "\n";
    print "test2";
    }

dbmclose(%TEST);
print "test3";

##</code><code>##

test1 
test_key = 2412538716
test2 test3