#! usr/bin/perl -w
use File::Copy;
my @list = <C:\LOCATION\*.rtf>;
foreach my $file(@list){
copy ($file,"C:\Temp\");
}

##</code><code>##

#! usr/bin/perl -w
system ("copy /y LOCATION\\*.rtf C:\Temp");