use IO::All;
 print "$_\n" for keys %{ io('/home/lab/history.db') };