use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Word';
    
$Win32::OLE::Warn = 3;

my $Word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application', 'Quit');

my $docname; ##PUT AN EXAMPLE DOCNAME HERE


$Word->{'Visible'} = 1;
$Word->Documents->Open ($docname) or die"Unable to create document ".Win32::OLE->LastError()."\n";
$Word->Documents->ActiveDocument->SaveAs({FileName=>'NEWFILENAME', 
  FileFormat=>wdFormatDocument});