open(FILE, '>:encoding(UTF-8)', 'fpo');

##</code><code>##

my $qfn = 'fpo';
open(my $FILE, '>:encoding(UTF-8)', $qfn)
   or die("Can't create \"$qfn\": $!\n");