my $savefile = new FileHandle("xxx.ptysav", "r"); my $lines = join("",($savefile->getlines())); my $result = eval $lines; # <- here is the eval close ($savefile);