Select Code to Download

open my $OUT, '>:utf8', $filename or die $!;

open my $OUT, '>', $filename or die $!;
binmode $OUT, ':utf8';

use open OUT => ':utf8';