perl -e '@ARGV= map {(split" ")[3]} grep /Parameter/, `lsnrctl stat ZRRI_LISTENER`; print while <>'