while (<$FH>) { 
  print; # prints the current line using $_ implicitly
}