if (!(open (OUT, ">$_"))) { print "Error opening file $_ 
   for writing."; exit 0; }