$fh = IO::File->new ($filename, O_EXCL | O_CREAT | ...)