use Fcntl;
# Open $file for writing unless it already exists
sysopen(FH, $file, O_WRONLY|O_EXCL|O_CREAT) or die $!;