Select Code to Download

        print line until ( !($line =~ /\s+/ ) )

      while( my $ln = <$filehandle> ) {
             next if $ln =~ /^\s*$/;
...
                   }
              }
       }