print OUT "text bla bla\n" or die "$file: print failed: $!\n";
close OUT or die "$file: close failed: $!\n";