Help for this page

Select Code to Download


  1. or download this
      1. read (STDIN,my($temp), $ENV{'CONTENT_LENGTH'});
      2. my (@pairs) =split(/&/,$temp);
    ...
      7.         $content=~s/%(..)/pack("c",hex($1))/ge;
      8.         my($fields{$key})=$content;
      9. }