sub parse_params {
  my $self = shift;
  my @values = split(/\&/,$ENV{QUERY_STRING});
  foreach (@values) {
    my ($paramname, $data) = split(/=/, $_);
    $$self->{get}->{$paramname} = $data;
  } 
  if( $ENV{CONTENT_LENGTH} ){
    read(STDIN, my $content, $ENV{CONTENT_LENGTH});
    my @paras = split(/&/, uri_unescape($content));
    foreach(@paras){ 
      (my $var, my $value) = split(/=/, $_);
      if( $var =~ /^(\w+)$/ ){
        $$self->{post}->{$1} = $value; 
      }
      
      if( $var =~ /(\w+)\[\]/ ){ 
        if( defined $$self->{post}->{$1} ){
          push( @{ $$self->{post}->{$1} }, $value ); 
        }
        else{
          my @array = ( $value );
          $$self->{post}->{$1} = \@array;
        }
      }        
    }
  }
}