perl -d:Dprof your_script

 # wait 160 seconds or whatever...
 
 dprofpp