if (test_conditions(@info)) {
  eval {do_something(@info)};
  if ($@) {
    warn "Failed to do whatever because '$@'";
  }
}