Select Code to Download

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