perl -le"print for keys %::"
perl -le"print for keys %main::"