use CGI();
my $q = CGI->new;
print $q->header, $q->header, $q->Dump;
__END__

##</code><code>##

use Data::Dump qw/ dd /;
use WWW::Mechanize;
my $ua = WWW::Mechanize->new;
$ua->get( $server_endpoint );
dd( $ua );
__END__