Select Code to Download

    while (<IN> ne "") {

      my $line = $_;

      chomp($line);

 while (my $line = <IN>) {
      chomp($line);