On a windows 2000 machine you could do it this way.

#!/usr/bin/perl -w

use strict;
my $dir = "C:\\TEMP\\";
my $outdir = "C:\\temp2\\";

opendir (DIR, $dir) || die "can't open $dir: $!"; 
my @files = readdir(DIR);
close(DIR);

foreach (@files) {
# change the extension to one of your liking
    if ($_ =~ /.log/) {
        system ("copy $dir\\$_ > $outdir\\$_");
    }

}
[download]