sub whoami {
    print +(caller 1)[3], $/
}
                                                                                
*main::foo = sub { whoami() };
                                                                                
foo();

__END__
main::__ANON__