$ perl -MCarp::Always -e 'sub f { die "arghh" }; sub g { f }; g;'
    arghh at -e line 1
            main::f() called at -e line 1
            main::g() called at -e line 1