D:\>
D:\>more hi.pl
BEGIN {
   use DBI;
   use CGI;
}

hi();

sub hi{
    print "Hi there\n";
}


D:\>perl -d:DProf hi.pl
Hi there

D:\>dprofpp tmon.out
Total Elapsed Time = 0.108110 Seconds
  User+System Time = 0.108110 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 14.8   0.016  0.016      1   0.0160 0.0160  Fh::BEGIN
 14.8   0.016  0.016      6   0.0027 0.0027  constant::BEGIN
 14.8   0.016  0.047     13   0.0012 0.0036  DBI::BEGIN
 14.8   0.016  0.093      5   0.0032 0.0186  main::BEGIN
 13.8   0.015  0.031      1   0.0150 0.0308  ActivePerl::Config::override
 13.8   0.015  0.015      3   0.0050 0.0050  CGI::BEGIN
 0.00   0.000  0.000      1   0.0000 0.0000  Config::launcher
 0.00   0.000  0.000      1   0.0000 0.0000  Config::fetch_string
 0.00   0.000  0.000      1   0.0000 0.0000  Exporter::Heavy::heavy_export_ok_t
                                             ags
 0.00       - -0.000      1        -      -  warnings::import
 0.00       - -0.000      1        -      -  File::Basename::fileparse_set_fsty
                                     0.0000  pe
 0.00       - -0.000      1        -      -  Cwd::bootstrap
 0.00       - -0.000      1        -      -  DBI::DBI_tie::TIEHASH
 0.00       - -0.000      1        -      -  overload::OVERLOAD
 0.00       - -0.000      1        -      -  CGI::initialize_globals

D:\>