encode

use strict;
use warnings;
use feature qw(say);
use utf8;
use File::Temp qw(tempdir);
use File::Copy::Recursive qw(dircopy);

my $dir = tempdir( CLEANUP => 1 );
chdir $dir;
my $source_dir = 'dir1';
my $dest_dir = 'dir2';
my $fn = 'Funkstörung';
printf "%vX\n", $fn;  # Unicode charcter codes
system 'mkdir', $source_dir;
system 'touch', "$source_dir/$fn";
dircopy($source_dir, $dest_dir) or die "dircopy failed: $!";
system 'ls', $dest_dir;