$\="\n";
sub show {
    print join "\t",(caller(0))[0..3];
};

show();

package Test;

*func = \&main::show;
*funk = \&main::show;

func();
funk();

##</code><code>##

/usr/bin/perl -w /tmp/tst.pl 
main	/tmp/tst.pl	6	main::show
Test	/tmp/tst.pl	13	main::show
Test	/tmp/tst.pl	14	main::show