use Devel::Symdump;
use CGI;
my $obj = Devel::Symdump->new('CGI');
print $obj->as_string;