#!/usr/bin/perl  
system(cp -r *.xls /newdir/*.xls);