use Benchmark::Timer;
    $t = Benchmark::Timer->new(skip => 1);
    
    foreach my $field (sort @$field_order) {
        $t->start('tag');
        print "\t<TR>\n";
        print "\t\t<TH ALIGN=RIGHT>$field :</TH>\n";
        for my $i (0 .. $num_recs) {
            print "\t\t<TD ALIGN=LEFT>$records->[$i]->{$field}</TD>\n";

        }

        print "\t</TR>\n";
        $t->stop;
    }   

    $t->report;

##</code><code>##

$ perl -MDevel::Profiler your_script.pl

##</code><code>##

$ dprofpp

##</code><code>##

# in httpd.conf
 PerlModule Devel::Profiler::Apache;

 # or in startup.pl
 use Devel::Profiler::Apache;