unless( open( $FH, "<", $filename ) ) {
  die "Error: couldn't open file '$filename': $!\n";
} # unless
else {
  local $/ = chr(13) . chr( 10 );
  @lines = <$FH>;
  close( $FH );
  chomp @lines;
} # else