my @lines = do {

    if( open( my $FH, "<", $file ) ) {
        <$FH>;
    } # if
    else {
      die "Error: couldn't open file '$file': $!\n";
    } # else

}; # do