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

sub baz {
    eval "1 = 2";
}
__END__
baz failed!