...
package WWW::Mechanize;

sub _make_request {
    my($self) = shift;
    my $req = $self->SUPER::request(@_);
    print Dumper $req;
    return $req
}
...