my $result = `blastall -i foo -o bar -p blastx -d baz`; if ($!) { die "something bad happened: $!"; } #### eval { $result = `......`; } if ($@) { die "......"; }