I did like this but no effect :-

my $document = Win32::OLE -> GetObject($doc,sub {$_[0]->Quit;});