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