dbmopen(%TEST, "/home/lab/history.db", 0666) or die "Can't open history file: $!";
while (($key,$value) = each %TEST){
print "$key.$value\n";