#! /usr/bin/perl
use strict;
use warnings;

use URI;


my $url = 'run.cgi?taki=222&act=foo&temp=bar';

my $uri = URI->new( $url );

my %params = $uri->query_form;
delete $params{taki};

$uri->query_form( %params );

print $uri->as_string;