my $document = Win32::OLE ->GetObject($wordoutput) or die Win32::OLE->LastError, $!;