$temp = $mech->uri;
(undef, $uri) = split (/(\?.*)/, $temp);

##</code><code>##

$url .= $uri;