use strict; use Win32::OLE qw(in with); use Win32::OLE::Const 'Microsoft Word'; my $textfile = ''; my $outfile= ''; my $Word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application', 'Quit'); my $Doc = $Word->Documents->Open($textfile); $Doc->SaveAs({FileName => $outfile, FileFormat => wdFormatDocument});