$path = 'c:\temp';
@list = `dir /a:d /b /s $path`;