sub ReadParse {
  read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
  @li = (split(/&/, $buf), split(/&/, $ENV{'QUERY_STRING'}));
  foreach my $input (@li) {
    $input =~ tr/+/ /;
    $input =~ s/%(..)/pack("C", hex($1))/eg;
    $input =~ s/\.\.\///g;
    ($name, $val) = split(/=/, $input);
    $name  =~ tr/A-Z/a-z/;
    $in{$name}=$val;
  }
}