use Archive::Cpio;
my $cpio = Archive::Cpio->new;
$cpio->read('test.cpio');
$cpio->remove('test1');
$cio->write('newtest.cpio');