>perl -MCarp -e"sub g { carp } sub f { shift->g } bless({})->f"
 at -e line 1
        main::g('main=HASH(0x235f7c)') called at -e line 1
        main::f('main=HASH(0x235f7c)') called at -e line 1