Select Code to Download

use File::Copy;
copy("a/b/*.txt","a/");

use File::Copy;
my @list = <a/b/*.txt>;
foreach my $file (@list) {
  copy($file,"a/");
}