in reply to Win32::OLE and taint

use Win32::OLE qw(CP_UTF8); use Win32::OLE::Const 'Microsoft Word'; $Win32::OLE::CP = CP_UTF8; my $W = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application') || die ("couldn't create Word object"); $W->{'Visible'} = 1; my $document = $W->Documents->Open("D:\\mydoc.doc") || die("Unable to open document ", Win32::OLE->LastError()); print $document."\n";