Someone

  if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
    read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
    print "See below for results or search another account.\n";

    # split posted variables into pairs
    my @pairs = split(/&/, $query);
    my $count = 0;
    foreach my $pair (@pairs) {
      my ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $post{$name} = $value;
      $count++;
    }
  }