dbmopen(%TEST, "/home/lab/access.db", 0666);
#$TEST{'test_key'} = pack 'L', int(rand 2**32);
while (($key,$val) = each %TEST) {
    print $key, ' = ', unpack('L',$val), "\n";
    print "test2";
    }

##</code><code>##

test_key = 2412538716
test2