Can you be more specific? Maybe provide a code sample and point out where the actual problem is?

Try the following script which just gets all subdirectories and prints their name out.
Does it work for the directory in question?

use Win32::OLE qw(in); 
Win32::OLE->Option(CP => Win32::OLE::CP_UTF8);   

$obj = Win32::OLE->new('Scripting.FileSystemObject');
$folder = $obj->GetFolder(".");
$collection= $folder->{SubFolders};

foreach  $value (in $collection) {
     $foldername= %$value->{Name};
     $folder=$obj->GetFolder("$foldername");
    print (Win32::FormatMessage(Win32::OLE->LastError())|| "$foldernam
+e");
}
[download]