Lines Matching refs:OUTFILE
36 #my $outfile = 'fmt-manual.xml';
37 my $outfile = shift;
38 #print "Infile: $infile, Outfile: $outfile\n";
39 # check we can write to outfile
40 open( OUTFILE,">$outfile" ) or
41 die "Can't output $outfile $! for writing";
47 print OUTFILE $prev;
65 print OUTFILE $curr;
67 close OUTFILE;
