use strict;
use warnings;
use CGI;
my $q = CGI->new;