my $res = eval {
 something(...);
};
if ($@) {
  die $@;
} else {
 do_something_more(...)
}
return $res;