# 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;
}