bh_perl,
Take a look at File::Copy. I am not sure what all your use of * is, but I doubt it is doing what you want.

Cheers - L~R