Help for this page
my $document = Win32::OLE ->GetObject($wordoutput) or die Win32::OLE-> +LastError, $!;