#!/usr/bin/perl -w
use Win32::OLE;
use Win32::OLE::Const;
my $wd = Win32::OLE::Const->Load("Microsoft Word 14.0 Object Library");
my $word = Win32::OLE->GetActiveObject('Word.Application')
    || Win32::OLE->new('Word.Application','Quit')
    or die Win32::OLE->LastError();
$word->{Visible} = 1;
$filename = 'foobar.doc';
$pw = 'foobar';
$savename = 'foobarsave.doc';
my $doc = $word->Documents->Open($docname)
    or die Win32::OLE->LastError();
$doc->SaveAs( { FileName => $savename, Password => $pw});
$doc->close;
$word->close;