main,U:\develsv\ARTS\playground\callertest.pl,16,main::f,1,,,,2,UUUUUUUUUUU

##</code><code>##

 perl -lwe 'sub a{print((caller 0)[3])};sub b{a()};sub c{b()}; c'

##</code><code>##

 perl -lwe 'sub a{print((caller 1)[3])};sub b{a()};sub c{b()}; c'

##</code><code>##

 perl -lwe 'sub a{print((caller 2)[3])};sub b{a()};sub c{b()}; c'

##</code><code>##

 perl -lwe 'sub a{print((caller 3)[3])};sub b{a()};sub c{b()}; c'