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