open (TEMPOUT,">$outfile") or die "opening $outfile: $!\n"; ##

##

print TEMPOUT <<"END";

...
END