sub bar {
    print +(caller 0)[3];
}

sub foo { bar }

my $baz = \&foo;
$baz->();

__END__
main::foo