my $result = eval { ...code...  }; if( $@ ) { ... }

##</code><code>##

my $result = ...code...; if( is_error( $result ) ) { ... }