if (!open my $fh, "<", "filename")  {
    warn "Whatever";
    return;
}

##</code><code>##

open my $fh, "<", "filename" or do {warn "Whatever"; return;};