my $q = CGI->new($ENV{QUERY_STRING});
$data = $q->param('chicken');
$data = $1 if $data =~ //;# untaint chicken
$q = CGI->new(\&hook, $data);