for ( ; my $in = <$fh> ; )
{
  ...
}

#  or ...

for ( ;; )
{
  last if eof $fh;
  my $in = <$fh>;
  ...
}