Select Code to Download

$output = `perl 2.pl`;
if ($output =~ m/some random error message/) {
    die "Computer says no";
}

eval{ do '2.pl' };
die "Aaaagh! $@" if $@;