Have a look at the caller function:

perldoc -f caller

Also, for logging purposes, the core Carp module has some useful functions to print out call stacks, etc.