Select Code to Download

use strict;
use Win32::OLE qw(in with);
...
my $Doc = $Word->Documents->Open($textfile);
   $Doc->SaveAs({FileName => $outfile, FileFormat => wdFormatDocument}
+);