my %FORM = ();
my ($name, $value) = split(/=/, $pair, 2);
$FORM{$name} = $value;