my $query = CGI->new(\&hook);