Select Code to Download

while(...)
{
     my $nextline = <IN>
     .....
}

my $nextline = <IN>;
while($nextline eq '')
...
      $nextline = <IN>;
      print"Nextline is empty\n";
}

...
if($nextline ne '')
{
     last;
}
...