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

show();

package Test;

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

func();
funk();