$ perl -le'$0="Foo"; sub f { print "$0,", (caller)[1] } f()'
Foo,-e