use Win32::OLE;
    use Win32::OLE::Const 'Microsoft Word';

    my $source_doc = "X:\\source.doc";
    my $dest_doc   = "X:\\dest.doc";

    my $Word = new Win32::OLE 'Word.Application', 'Quit';

    $Word->Documents->open( $source_doc )
      or die "Unable to open $source_doc ", Win32::OLE->LastError();
    my $text = $Word->ActiveDocument->Content->Text;
    $Word->ActiveDocument->Close;

    $Word->Documents->open( $dest_doc )
      or die "Unable to open $dest_doc ", Win32::OLE->LastError();
    $Word->ActiveDocument->Content->InsertAfter({ Text => $text });
    $Word->ActiveDocument->Close;