use CGI;

while (<STDIN>)
{
   if (1)
   {
      my $cgi = new CGI($_);
      my $blah = $cgi->param('q')
   }
}