perl -d:DProf  your_script.pl

##</code><code>##

 dprofpp tmon.out