use Devel::GetSymbols;
@EXPORT = grep /^[A-Z0-9_]+$/, Devel::GetSymbols::Subs;