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