Select Code to Download

        while (<INFILE>) {
                my $line = $_;
...
                        last;
                }
        }

        while (<INFILE>) {
                my $line = $_;
...
                }
        }

                # ----- Do as long as line doesn't start with '2'