Select Code to Download

        my $t0 = Benchmark->new;
        # build TOC
...
        my $t1 = Benchmark->new;
        my $td = timediff($t1, $t0);
        print "the code took:",timestr($td),"\n";

        my $t0 = Benchmark->new;
        # build TOC
...
        my $t1 = Benchmark->new;
        my $td = timediff($t1, $t0);
        print "the code took:",timestr($td),"\n";

        foreach my $h (split(/\n/, $page)) {
            if (substr($h,0,3) eq '== ' 
...
                push(@toc, $file."\t".$h);
            }
        }