How could you list out all the variables defined in a package in Perl?

use CGI;

no strict 'refs';

foreach ( keys %CGI:: )
{
print "$_\n";
}