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