in reply to How to write the perl script for the following linux command?
You could look at Archive::Cpio, or failing that system. Super Search should have more on the topic.