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