RosettaCodeData/Task/Write-entire-file/Perl/write-entire-file-3.pl

open my $fh, '>:encoding(UTF-8)', $filename or die "Could not open '$filename':  $!";
print $fh $data;
close $fh;