Errmm... Unix does it in one line but that line is a fairly complex C program.

Why do you want to rewrite cp -rp in perl?
Personally I'd just use a system() call to perform that operation.

Maybe not what you want to hear, but, well... why not use the tools that already exist?

Michael