@Form = split(/&/,$ENV{'QUERY_STRING'});
foreach $i (@Form)
{
    ($name, $value) = split(/=/,$i); 
}