use Win32::OLE qw(CP_UTF8);

$Win32::OLE::CP = CP_UTF8;
my $W = Win32::OLE->GetActiveObject('Word.Application')
              || Win32::OLE->new('Word.Application')
              || die ("couldn't create Word object");

my $document = $W->Documents->Open("my.doc");