my $q = CGI->new;
my $name = $q->param('name');
warn $name;