while(my $line = <$fh>){
  #block
}