open INPUT, '<', $file or die ...;
while (<INPUT>) {
  ...
}
close INPUT;