Select Code to Download

        while (<$infile>) {
            chomp;
...
            $line_count++;
        }
        close $infile;

my @lines = map{chomp;$_;$line_count++;} <$infile>;