Select Code to Download

my $n      = 0;
...
else {
    print "here's your answer: $result\n";
}

open my $perl, '<', 'perlscript.pl'; 
...
close ($perl); 

eval {$perl}; # what am I eval'ing?

eval_but_dont_execute($some_shaky_perl_code);