Select Code to Download

while (($read)=<IN>) {

my $line;
while ( ($line) = <DATA> ) {
...
line 1
line 2
line 3

line: line 1

while ($read=<IN>) {