$book->Close;
Win32::OLE->Uninitialize;
undef $book;
undef $ex;