Profiling perl DProf

[lee212]

perl -d:DProf run_MGEScan.pl

$ dprofpp 
Total Elapsed Time = 1302.319 Seconds
  User+System Time = 0.999743 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 97.0   0.970  0.970      1   0.9700 0.9700  main::invert_seq
 2.00   0.020  0.030      3   0.0067 0.0099  main::BEGIN
 1.00   0.010  0.010     23   0.0004 0.0004  Getopt::Long::BEGIN
 0.00   0.000  0.000      1   0.0000 0.0000  Exporter::Heavy::heavy_export
 0.00   0.000  0.000      1   0.0000 0.0000  Getopt::Long::GetOptionsFromArray
 0.00       - -0.000      1        -      -  overload::OVERLOAD
 0.00       - -0.000      1        -      -  Exporter::export
 0.00       - -0.000      1        -      -  Getopt::Long::ConfigDefaults
 0.00       - -0.000      1        -      -  Getopt::Long::Configure
 0.00       - -0.000      1        -      -  warnings::unimport
 0.00       - -0.000      1        -      -  Getopt::Long::import
 0.00       - -0.000      1        -      -  overload::BEGIN
 0.00       - -0.000      1        -      -  overload::import
 0.00       - -0.000      3        -      -  Getopt::Long::ParseOptionSpec
 0.00       - -0.000      1        -      -  Getopt::Long::CallBack::BEGIN

Ref: http://www.perl.com/pub/2004/06/25/profiling.html