my $t0 = Benchmark->new;
        # build TOC
        push(@toc,
              map(m/^={2,3}\s/ ? $file."\t".$_ : (),
                   split(/\n/, $page) ) );  
        my $t1 = Benchmark->new;
        my $td = timediff($t1, $t0);
        print "the code took:",timestr($td),"\n";