If you run your program with perl -d:Trace program, this module will print a message to standard error just before each line is executed.
WWW: http://search.cpan.org/dist/Devel-Trace/
None