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

show();

*func = \&show;

func();