perl -wle'use My::Module::Account qw(_GenerateAccountSummary); print *{$::{_GenerateAccountSummary}}{CODE} || "no"'