if (test_conditions(@info)) {
  eval(do_something(@info));
  warn "Failed to do whatever because '$@'" if ($@);
} else {
  # handler method for whenever something is 'screwed up'
  # such as when test_conditions() fails...
  something_screwed_up();
}