perl -MO=Deparse -e"print join qq(\n), keys main::::::"