Searching the Win32::OLE documentation for ->Quit shows the following example:

            $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Qui
+t;})
                    or die "Oops, cannot start Excel";
[download]

It seems to me that the optional destructor argument (as documented in Win32::OLE) will do what you want.