eval { do_whatever() };
if ($@) {
  # handle error
  ...
}

##</code><code>##

my $res = eval { do_whatever() };
if ($@) {
  # handle error
  ...
}

# use $res here;

##</code><code>##

eval { do_whatever(); 1 } or print "failed!\n";