sub parseurl {
 
$buffer = <STDIN>;
 
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {
#   print "$pair <br>";
   ($name, $value) = split(/=/,$pair);

   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

   $FORM{$name} = $value;
}
return;
}
1;