use strict;
use warnings;

open (IN,"<file");
my $line;
while($line=<IN>){
  do_something_with_line();
}
close(IN);