my $cgi_query_string = "name=alex&sex=m";
my @components = split(/&/, $cgi_query_string);
my %query;
foreach my $component (@components) {
  my ($name, $value) = split(/=/, $component);
  $query{$name} = $value;
}