if ( open my $fh, ... ) {
    while (<$fh>) { ... }
    close $fh;
}
else { warn "open: $!" }

# - or -

sub foo {
    open my $fh, ... or do { warn "open: $!"; return };
    while (<$fh>) { ... }
    close $fh;
}

# - or -

FILE: for my $file (@files) {
    open my $fh, ...
        or do { warn "skipping $file: $!"; next FILE };
    while (<$fh>) { ... }
    close $fh;
}

# - or -

use Try::Tiny;
try {
    open my $fh, ... or die $!;
    while (<$fh>) { ... }
    close $fh;
}
catch {
    warn "error: $_";
};
# same thing, but without the module:
eval {
    open my $fh, ... or die $!;
    ...
;1 } or do {
    warn "error: $@";
};