Select Code to Download

    use HTML::Parser;

...
        $parser->parse_file($html);
        close $TXT or die "Can't close $txt: $!";
    }

    % ./foo.pl file1.html file2.html ...