Help for this page
eval { $number = sqrt(-1) }; if ($@) { print "negative sqrt"; }
$number = sqrt(-1) or die "error";
$number = sqrt(-1) or print "error";