4 Years late but may be useful to others, Haven't read all the code but i've used this statement when i've been using OLE

$Active::Document->{Saved} = 1;
$Active::Document->Close;
[download]

Although to be honest, You're better to use the save as like Kenny did. Here's some more on SaveAs() method if anyone needs an example:

    my $MSDN_const = { 
        %{ Win32::OLE::Const->Load("Microsoft Word 11.0 Object Library
+") }
    };
    # Save as normal MS Word document
    $Active::Document->SaveAs(
        {
        FileName=>'C:\\My_Word_Document.doc',
        FileFormat=>$MSDN_const->{wdFormatDocument}
        }
        );
    # Save in XML format
    $Active::Document->SaveAs(
        {
        FileName=>'C:\\My_XML_Document.xml',
        FileFormat=>$MSDN_const->{wdFormatXML}
        }
        );
[download]