This advice is not very helpful in this case. Devel::DProf collects statistics for subroutine calls but this script doesn't have them. Devel::SmallProf which is line oriented profiler is more useful in such cases.

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org