or download this
%Time Sec. #calls sec/call F name
14.67 55.4872 2174052 0.000026 <anon>:...5.8.2/Class/DBI/Colu
+mn.pm:37
...
1.13 4.2896 88172 0.000049 Class::DBI::get
1.08 4.1012 264665 0.000015 <anon>:..._perl/5.8.2/Class/DB
+I.pm:518
1.00 3.7662 176564 0.000021 <anon>:..._perl/5.8.2/Class/DB
+I.pm:722