open( my $FILE, $file )
  or die "Error in reading file '$file': $!\n";
while( my $line = <$FILE> ) {
  # $line must be defined now, e.g.
  chomp( $line );
  print "$.: $line\n";
} # while
close( $FILE );