I'd take the use File::Copy path but to make sure that recursive copying is available make that a sub that might call itself (or at least check for directories and skip them). And don't forget to closedir INDIR; ;-)

You might want to take a look at File::Path though that handles the creation of directories and not of files (AFAIK)

Regards

Stefan K