perl -e 'foreach(`ls /willows/dev/shree/*.txt|head -500`){print `cat $_`;}'>>newfile.txt