Select Code to Download

@keep{@files} = (1) x @files;
foreach my $file ( @filelist ) {
   next unless $keep{$file};
   unlink $file == 1 or warn "could not unlink $file ($!)\n";
}