use URI ();

my $uri = URI->new( $cgi->url );
( my $path = $uri->path ) =~ s![^/]+\z!!;
$uri->path( $path || "/" );
$uri->query_form( a => undef );

print $cgi->redirect(-cookie => $sessionidCookie,
                     -uri => $uri);