if (!eval { ...; 1 }) {
   ...error handler...
}

##</code><code>##

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