use Fnctl; # O_* constants
sysopen(FH, $file, O_CREAT|O_EXCL);