The previous post about package name is quite correct. I don't know exactly what you are trying to do accomplish. I am just guessing that what you want is more than you asked about.
This may or not be helpful.

The reason to know "where you are", often comes about when your program "dies". Since you said that you are new at Perl, you should be aware of this fine point about "die".

open(IN, "foo") || die "can't open foo";
#versus#
open(IN, "foo") || die "can't open foo\n";
[download]

If you do not put a '\n' on the die, you get executing name and line number. If you put the '\n', you just get what you typed in between the double quotes.

With Perl, you can learn amazing things about what is going on. For example:

sub whoami  { (caller(1))[3] };  #name of the sub that called this sub
sub whowasi { (caller(2))[3] };  #name of the parent of that sub
[download]

I'm just guessing that the most important info that you need is "who called me?" when some sub in a package has a problem.