my $q=new CGI;