Perl将文件从多个子目录路径复制到一个目录路径

Question

如何将.txt文件从多个子目录路径复制到一个目录路径，并为目标目录路径中的每个.txt文件保留相同的名称。

这是我的代码。它对我不起作用。

#!/usr/bin/perl
use File::Copy;

my @a = glob("/aim/original/*/*.txt"); #source 

print "@a\n";
my $newfile = "/aim/duplicate/"; #destination directory
foreach (@a)
  {
   copy ("$_", $newfile) or die "Cannot copy files $!";
  }

我也尝试过这段代码但是效果不好

perl -MFile::Copy=copy -e'copy($_, "/aim/duplicate/") for </aim/original/*/*.txt>'