My code:
 	my $Word = Win32::OLE->new('Word.Application');
 	$Word->{'Visible'} = 0;
 	$Word->{DisplayAlerts} = 0;
 	my $doc = $Word->Documents->Open("$folderpath\\Chapter 1.doc");
 	$Word->ActiveDocument->SaveAs({FileName=>"$folderpath\\Chapter
 1.txt", FileFormat=>wdFormatDOSTextLineBreaks});
 	$Word->{ActiveDocument}->Close;
 	$doc->Close;
 	$Word->Close;