my $q = new CGI::Switch;