package New;
use v5.42;
use feature 'unicodefilenames';

Old->foo($_) for <*>;

package Old;
use v5.38;

sub foo($fname) {
  my $dir= "tmp\x{85}";
  mkdir $dir or die "$!";
  system("cp -a $fname $dir/$fname") == 0 or die "$!";
}