eval { $number = sqrt(-1) };
if ($@) { print "negative sqrt"; }

##</code><code>##

$number = sqrt(-1) or die "error";

##</code><code>##

$number = sqrt(-1) or print "error";