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

##</code><code>##

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