Select Code to Download

eval {
    my $file = 'foo.pl';
    require $file;
};

my $notwhatiwant = qq{
    $file = 'foo.pl'; # foo has errors in it
    require "$file";
...
print "<$notwhatiwant>\n";
eval $notwhatiwant;
dienice("that code is busted because: $@") if $@;