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