Select Code to Download

while( my $ent = readdir $dirhandle ) {
    next if $stuff or $ent =~ m/\./;
    
    push @wanted, $ent if $various and $things;
}