Win32::OLE->Option(CP => Win32::OLE::CP_UTF8);
$obj = Win32::OLE->new('Scripting.FileSystemObject');