in reply to cp -p in perl?

I had the same problem. I ended up using a system call.

Pax vobiscum,
-Andrés