while (<INPUT>) {
  # handle file
  my $line = $_;
}