use Win32::OLE qw( CP_UTF8 ) ;
Win32::OLE->Option( CP => CP_UTF8 ) ;
my $word = Win32::OLE->new ('Word.Application', ...