Put this sub in the bottom of your script:<br>
<br>
sub parse_form {<br>
<br>
#Get the input off the filled-in form<br>
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});<br>
<br>
#Split the pairs name-value<br>
@pairs = split /&/, $buffer;<br>
<br>
#Split the values from the names<br>
foreach $pair (@pairs) {<br>
($name, $value) = split /=/, $pair;<br>
<br>
$value =~ tr/+/ /;<br>
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;<br>
<br>
$FORM{$name} = $value;<br>
}<br>
}<br>
<br>
Now at the beginning of your script active the sub by writing: parse_form();<br>
<br>
now if you've posted a field named "falafel" you get its value like this:<br>
$a = $FORM{'falafel'}<br>
<br>
If you still got problem with it, feel free to email me.