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