my $result;
if (!eval {
   ...
   $result = ...;
   1;
}) {
   die("Unable to ...: $@\n");
}