in reply to Copying a directory recursively

Sorry this is not a Perl solution but this solution should be portable to all *nix OS's and Windows OS that cygwin installed on them ...
$ cp -r src/* tgt