You can use the built-in function caller() to get this sort of information, and much more. Its great for simple debugging.

From perldoc:
caller EXPR caller Returns the context of the current subroutine call. In scalar context, returns the caller's package name if there is a caller, that is, if we're in a subroutine or "eval" or "require", and the undefined value otherwise. In list context, returns:

   ($package, $filename, $line) = caller;
[download]

With EXPR, it returns some extra information that the debugger uses to print a stack trace. The value of EXPR indicates how many call frames to go back before the current one.

    ($package, $filename, $line, $subroutine, $hasargs,
    $wantarray, $evaltext, $is_require, $hints, $bitmask) = caller($i)
+;
[download]