open my $fh, '<', $filename  
  or die "open($filename, ro) failed: $!";
while ( my $line = <$fh> ) {
...
}
close $fh;