See caller. If your script is at the top level of the Perl interpreter, you won't have any information on your caller.