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