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

##</code><code>##

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