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