while (<$fh>) {
   ...
}

close($fh)
   or die("Error reading from input file: $!\n");