>perl -MCarp=confess -e"sub h { confess; } sub g { h(); } sub f { g(); } f();"
 at -e line 1
        main::h() called at -e line 1
        main::g() called at -e line 1
        main::f() called at -e line 1

>perl -MCarp=confess -e"sub h { confess; } sub g { goto &h; } sub f { g(); } f();"
 at -e line 1
        main::h() called at -e line 1
        main::f() called at -e line 1