my $file = "does-not-exist";

while (<STDIN>) {
    eval {
        open my $fh, "<", $file
            or warn "Couldn't open '$file': $!" and exit;
    };
    print STDERR "ERROR: $@" if $@;
}