shared pool fragmentation

hello:
I want to get the fragmentation % of the shared pool , is there some script that can help me to tune this???

Thanks ---

Code:

---

-------------------------------------------------------------------------------
--
-- Script:        shared_pool_lru_stats.sql
-- Purpose:        to check the shared pool lru stats
-- For:                8.0 and higher
--
-- Copyright:        (c) Ixora Pty Ltd
-- Author:        Steve Adams
--
-------------------------------------------------------------------------------
@save_sqlplus_settings

column kghlurcr heading "RECURRENT|CHUNKS"
column kghlutrn heading "TRANSIENT|CHUNKS"
column kghlufsh heading "FLUSHED|CHUNKS"
column kghluops heading "PINS AND|RELEASES"
column kghlunfu heading "ORA-4031|ERRORS"
column kghlunfs heading "LAST ERROR|SIZE"

select
  kghlurcr,
  kghlutrn,
  kghlufsh,
  kghluops,
  kghlunfu,
  kghlunfs
from
  sys.x_$kghlu
where
  inst_id = userenv('Instance')
/

---

curtesy from Steve Adams