you can run your script under the debugger.

export PERLDB_OPTS="NonStop=1 LineInfo=db.out AutoTrace"
perl -d xxx.pl > whatever.txt
[download]

then examine the file db.out in the current directory.
Or look at CPAN for Devel::Cover or maybe you search for Devel::DProf.