...
$mech->untick(SSview => "on");
$mech->submit;
       
die $mech->res->status_line unless $mech->success ;

my $uri = $mech->response->request->uri->as_string ;
print $uri ;