open (IN, filename) or die "cann't open file filename : $!\n";
while (defined(my $line = <IN>)) {
    #process $line
}
close (IN);