I suppose your intention is only manual debugging.

  my @call=caller(0);
  print join ":",$call[1],$call[2],"\n";
[download]

Prints path and linenumber of the call!

With this formating my emacs in cperl-mode even allows to click on the output and to jump into the addressed line of code.