use strict; # might be a good idea, too. But the code:
use CGI; my $q = CGI::->new; my %input = $q->Vars;