in reply to Re^2: utf8::downgrade() and file system operators
in thread utf8::downgrade() and file system operators

You forgot to create the file with the other name. 
open my $fh2, q{>}, $fnameUTF8 or die "could not create file $fnameUTF
+8:$!";
close $fh2 or die "could not close file $fnameUTF8";

[download]

You might want to unlink it at the end, too.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom