How about just looking at how File::NCopy does it? Or at least doing something with File::Find, so you're far more portable and tested.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.