Does this answer your question ?

#!/usr/bin/perl --
use WWW::Mechanize;
use Data::Dumper;
use strict; use warnings;
my $res = $mech->get('http://example.com');
print int $res == $mech->res
print int $res->status == $mech->res->status 
print int $res->status == $mech->status 
my $res2 = $mech->get('http://example.com/two');
print int $res == $mech->res
print int $res->status == $mech->res->status 
print int $res->status == $mech->status
print Dumper( { mech => $mech,  rest => $res , rest2 => $res } );
__END__
#!/usr/bin/perl --
use WWW::Mechanize;
use Data::Dumper;
use strict; use warnings;
my $mech = WWW::Mechanize->new;
my $res = $mech->get('http://example.com');
print int $res == $mech->res; ## HELLO
print int $res->code == $mech->res->code;
print int $res->code == $mech->status ;
my $res2 = $mech->get('http://example.com/two');
print int $res2 == $mech->res; ## HELLO
print int $res2->code == $mech->res->code ;
print int $res2->code  == $mech->status;
print "\n";
print Dumper( { mech => $mech },  { res1 => $res , res2 => $res } );

__END__
111111
$VAR1 = {
          'mech' => bless( {
            ...

$VAR2 = {
          'res1' => $VAR1->{'mech'}{'page_stack'}[0]{'res'},
          'res2' => $VAR1->{'mech'}{'page_stack'}[0]{'res'}
        };
[download]

Like a regular browser, a stack of pages is kept, a history, so you can go forward or back

Also Basic debugging checklist item 4 ( Dumper )