#!perl sub decodit { # my $instr; $instr = @_[0]; $instr =~ s/\+/\ /g; $instr =~ s/%([0-9a-fA-F])([0-9a-fA-F])/chr((hex($1) * 16 + hex($2)))/ge; return $instr; } $inlength = $ENV{CONTENT_LENGTH}; #$inlength = "5"; print "Content-type: text/html\n\n"; read (STDIN, $buf, $inlength); print <HI EVERYBODY 
END

foreach $mykey (sort keys %ENV) {
   print $mykey, ":    ", $ENV{$mykey}, "\n";
}

print <

END

foreach $str1 (split("&",$buf)) {
  ($name, $value) = (split ("=",$str1));
  $name = &decodit($name);
  $value = &decodit($value);
  print <$name = $value
END } print < END