# Perl code fragment to split the HTML FORM input in name value
# pairs.  The input is in the form name1=value1&name2=value2&...

# Split the name-value pairs
@pairs = split(/&/, $input);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);
    $FORM{$name} = $value;
}
