Help for this page

Select Code to Download

Select or download this

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

Select or download this

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