unless ($ENV{ CONTENT_LENGTH } eq "") {
read(STDIN, $buffer, $ENV{ CONTENT_LENGTH });
}

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  # Un-Webify plus signs and %-encoding
  $value =~ tr/ / /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s///g;
  if ($allow_html != 1) {
      $value =~ s/<([^>]|
)*>//g;
  }
  $FORM{$name} = $value;
}

Àü¼Û¹ÞÀº °ªµéÀº
$FORM{       }
¿©±â¿¡ ´Ù µé¾îÀγ׿ä. ºóÄ­¿¡ input name¸¦ ½áÁÖ¸é µÇ±¸¿ä

±×·Ò