my $query = CGI->new;
        
   # save POST and GET parameters into %FORM
   foreach ($query->param) { 
	
      $FORM{$_} = $query->param($_); 

   }