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