Select Code to Download

sub remove {
    my ($cpio, @filenames) = @_;
...
    # Remove the elements according to their name:
    @{$cpio->{list}} = grep { !$filenames{$_->name} } @{$cpio->{list}}
+;
}