Select Code to Download

OLD BUGGED CODE:
sub remove {
...
    my %filenames = map { $_ => 1 } @filenames;
    @{$cpio->{list}} = grep { !$filenames{$_} } @{$cpio->{list}};
}

WRONG NEW CODE
sub remove {
...
    }
    return;
}