unless (open (STDOUT, ">", $file)) {
  die "Kann '$file' nicht öffnen!";
}