my $bar = baz(); if ($@) { die "baz failed!\n"; }