in reply to copying a directory and it's contents

You want to copy directory recursively.
See File::NCopy. 
...
copy \1,"directory1","directory2"
...

[download]


In Section Seekers of Perl Wisdom