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