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) = each %TEST){
    print $TEST($key) 
}
dbmclose(%TEST);