eval { ... };
if ($@) {
   ...
}

##</code><code>##

eval { ...; 1 }
   or ...;

##</code><code>##

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

##</code><code>##

my ($x) = eval { ... }
   or ...;