http://qs321.pair.com?node_id=862496


in reply to Re^3: avoiding a race ("No extra", "no-user" locking--miniscule race of no importance)
in thread avoiding a race

If I knew how to do open(CREATE_NEW(*)) in Perl,

Assuming NFS isn't involved, you could do that with sysopen (or IO::File):-

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

    --k.