return IO::File->new($file, O_WRONLY|O_CREAT|O_EXCL,0644)
  || die "Can't create $file: $!\n";