in reply to newbie-probelm opening file

Why not use IO::All ?

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