Select Code to Download

    $line = <FILENAME>;
    while ($line ne "")
...
        print "$line";
        $line = <FILENAME>;
        }

    while (<FILENAME>)
        {
        print ;
        }

    while (<FILENAME>)
        {
...
        last if /<!-- End -->/;
        print ;
        }