...

### open read only; using lexical filehandle and three-argument-open
open my $filehandle, '<', $filename or die "open($filename,ro) failed: $!";

### read linewise from filehandle
while ( my $line = <$filehandle> ) {
  ## work with $line
}

### close filehandle
close $filehandle;

...