my $doc = $word->Documents->Open( { FileName => 'C:\\Perl\\home\\001f.doc', ReadOnly =>1 }) or die Win32::OLE->LastError();
SaveAs({FileName => 'exampletext.doc', FileFormat =>  wdFormatDocument,})
$doc->Close( { SaveChanges => $wdc->{wdDoNotSaveChanges} } );