sub test {
    my($pkg) = caller;
    print "I've been called from package $pkg\n";
}

package Foo;
main::test();

__END__
I've been called from package Foo