eval {
   die "borg";
};
warn "whoops $@" if $@;

eval {
    eval {
        die "borg";
    };
    die $@ if $@; # essentially "rethrow" an "exception" if it occured
};

warn "whoops $@" if $@;
__END__
whoops borg at - line 2.
whoops borg at - line 8.