open FH, ">", $outfile or die "Error writing '$outfile': $!\n";
print FH $output;
close FH;