my $rv;
if (!eval { $rv = ...; 1 }) {
   ...error handler...
}