I usually set PERLDB_OPTS to:NonStop frame=2 AutoTrace LineInfo=debug.out
I then run my program with perl -d and look through the the debug.out file. Will that do for you?

Another option is to add:

{
  package DB;
  sub DB {
    my ($package,$filename,$line)=caller;
    print "Line: $line\n";
  }
}
[download]

at the end of your code and set PERL5DB to DB::DB {}
That will mix program output and lines on STDOUT (or whatever you have selected)...

/brother t0mas