If you do not want to use additional library, you can use the conventional opendir/readdir functions to read in all the files into array, then use the foreach loop and system command to copy the file into the destination folder.
Expand|Select|Wrap|Line Numbers
use strict;
use warnings;
my $pwd = "C:\\perl";
my $destination = "D:\\textfile";
opendir(DIR,"$pwd") or die "Cannot open $pwd\n";
my @files = readdir(DIR);
closedir(DIR);
foreach my $file (@files) {
next if ($file !~ /\.txt$/i); # filtered only file with extension .txt
system("copy \"$pwd\\$file\" \"$destination\"");
}
The additional (\") in the system command is to make sure the command line takes in the space as part of the directory path name.
