Devel::trace does for perl what set -x does for shell scripts: run your program with 'perl -d:trace program', and it will print each line to standard error just before it is executed.