sysopen(FH, $file, O_WRONLY|O_EXCL) or die $!;