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