open my $fh, '>', $datei or do {
    warn "Datei $datei konnte nicht überschrieben werden!"
    do_something_else();
}