in reply to copy script
raghu shekar:
You'd benefit from scanning perlfunc and (as marto suggested) File::Find and friends...
...roboticus