open DATEI,">$file" or print $!;