What have you tried? Why not use File::Find::Rule, as previously advised here and here?
In reply to Re: Returning sub directories by marto in thread Returning sub directories by Win