$ findrule C:\perl -directory -name ( bin ) -maxdepth 1

$ findrule C:\perl -directory -name ( bin ) -maxdepth 2
C:\perl/5.10.1/bin
C:\perl/5.11.1/bin
C:\perl/5.12.2/bin

$ perl -MFile::Find::Rule -le"print for File::Find::Rule->new ->directory ->name('bin') ->maxdepth(2) ->in('C:\perl') "
C:\perl/5.10.1/bin
C:\perl/5.11.1/bin
C:\perl/5.12.2/bin