sysopen(FILE, $path, O_RDWR|O_CREAT|O_EXCL) or die $!;