ysth is right, but here's a crude and wasteful solution:

...

sub wanted {
     unless ($File::Find::dir =~ /subdir_name/ {
            #do something
     }
}
[download]