perl – 使用csv文件使用utf8名称复制/重命名图像

我正在编写一个脚本来批量重命名和复制基于csv文件的图像. csv由第1列组成：旧名称和第2列：新名称.我想使用csv文件作为perl脚本的输入,以便它检查旧名称并使用新名称将副本复制到新文件夹中. (我认为)我与图像有关的问题.它们包含像ß等utf8字符.当我运行脚本时,它打印出来：Barfu├ƒg├ñsschen它应该是Barfußgässchen并且出现以下错误：

Unsuccessful stat on filename containing newline at C:/Perl64/lib/File/Copy.pm line 148,<$INFILE> line 1.
Copy failed: No such file or directory at X:\Script directory\correction.pl line 26,<$INFILE> line 1.

我知道它与Binmode utf8有关,但即使我尝试一个简单的脚本(在这里看到它：How can I output UTF-8 from Perl?)：

use Strict;
use utf8;
my $str = 'Çirçös';
binmode(STDOUT,":utf8");
print "$str\n";

它打印出来：Ãirþ÷s

这是我的整个剧本,有人可以向我解释我哪里出错了吗？ (它不是最干净的代码,因为我正在测试的东西).

use Strict;
use warnings;
use File::Copy;
use utf8;

my $inputfile  = shift || die "give input!\n";
#my $outputfile = shift || die "Give output!\n";

open my $INFILE,'<',$inputfile   or die "In use / not found :$!\n";
#open my $OUTFILE,'>',$outputfile  or die "In use / not found :$!\n";

binmode($INFILE,":encoding(utf8)");

#binmode($OUTFILE,":encoding(utf8)");

while (<$INFILE>) {
s/"//g;
my @elements = split /;/,$_;

my $old = $elements[1];
my $new = "new/$elements[3]";
binmode STDOUT,':utf8';
print "$old | $new\n";

copy("$old","$new") or die "Copy failed: $!";
#copy("Copy.pm",\*STDOUT);

#   my $output_line = join(";",@elements);
#    print $OUTFILE $output_line;
#print "\n"
}

close $INFILE;
#close $OUTFILE;

exit 0;

copy(encode("cp1252",$old),encode("cp1252",$new))

open my $INFILE,$inputfilE)