use DB_File;
use CGI;
use DirHandle;
use FileHandle;

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

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