#!/usr/bin/perl -w
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $word = Win32::OLE->new('Word.Application') or die "Failure - word. \n";
my $outputdoc = $word->Documents->Add;
my @inputdocs = qw( foo.doc bar.doc);
foreach my $f (@inputdocs) {
    my $inputdoc = $word->Documents->Open({FileName => "c:\\$f"});
    my $inputparagraphs = $inputdoc->Paragraphs;
    foreach my $par (@$inputparagraphs) {
        #how to add to end of $outputdoc?
    }
    $inputdoc->close;
}
$outputdoc->SaveAs({FileName => 'c:\\combined.doc'});