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