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