Select Code to Download

while( my $nextline = <IN> ){
  chomp;
  last unless $nextline eq '';   # exits the loop unless empty line
  print "Nextline is empty\n";
}                                # now $nextline goes out of scope