Select Code to Download

use HTML::TreeBuilder;
my $filename = ...;
...
        $tree->eof;
        print STDERR "Parsing html complete.   \n";
}

use HTML::TreeBuilder;
my $filename = ...;
...
        $tree->eof;
        print STDERR "Parsing html complete.   \n";
}

                $filetell += length $filec;

                $filetell += length $buf;