Select Code to Download

use Win32::OLE qw(in CP_UTF8);
use Win32::OLE::Const;
...
  if($ren){$item->{Name}=$s}
}