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