Help for this page
open FH, ">", $outfile or die "Error writing '$outfile': $!\n"; print FH $output; close FH;
open my $filehandle, ">", $outfile or die "Error writing '$outfile': $ +!\n"; print $filehandle $output; close $filehandle;