Select Code to Download

# open intermediate file for pass of XML file
open (INTFILEout, '>', $intfile) or
...
### is anything in INFILEout at this point? If so, how 
### would the parser know how to put it there?
### stop the code here and cat or type the contents of INFILEout

while ($linein = <INTFILEin>){
   chomp $linein;
   print FMTFILE "$linein\n";
   }

#!/usr/bin/perl -w
use strict;
...
print "$x";

#Use of uninitialized value $x in string at C:\TEMP\testunless.pl line
+ 8.