Getting Variables From A Form

I will give you an example of what I do.

<form action="/cgi-bin/script.cgi" method="POST">
<input type="text" name="email">
<input type="text" name="name">
<input type="submit" value="GO">
</form>

Than at the start of the script I have:

Code Sample:

&GetFormInput;


sub GetFormInput {

(*fval) = @_ if @_ ;

local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}
if ($buf eq "") {
return 0 ;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;

if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";


}


   }
}
return 1;
}

$inputemail = $field{'email'} ;
$inputname = $field{'name'} ;

Than whatever was inside the email <input box> would be in the variable $inputemail, and whatever was in the name <input box> would be in $inputname

------------------
A 'jiffy' is an actual unit of time for 1/100th of a second.

Ok, thanks.