open(FH, '<', $file) or die $!;
while(my $line = <FH>) {
# ...