open OUT, '>', $file or die "$file: open for writing failed: $!\n";