my $doc = $word->{Documents}->Open($infile);

# either use this
$doc->SaveAs( { FileName => $outfile, FileFormat => wdFormatText } );

# or you can do this
$word->WordBasic->FileSaveAs($outfile);