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