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