eval {
  $result = `......`;
}
if ($@) {
  die "......";
}