use strict;
use CGI qw(:standard);
sub parse_form
{
   # Get the input
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

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

   foreach my $pair (@pairs)
  {
        foreach my $stuff (param($pair))
        {

      ($name, $value) = split(/=/, $stuff);

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