if ($ENV {'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV {'CONTENT_LENGTH'});
@pairs = split (/&/, $buffer);
foreach$pair(@pairs) {
($name, $value) = split (/=/, $pair);
$value =~ tr/t/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ("C", hex ($1))/eg;
$FORM{$name} = $vaule;
}
}

I have just started in CGI/Perl programming and would like to know what this code does. I sort of know what I think it is trying to do, but I'm not sure. If someone could explain it to me that would be so great.

Thanks for the help in advance.