`dir $source_directory /b/s /o:-d`;


##</code><code>##

system('dir', $source_directory, '/b/s', '/o:-d');