use strict;
use CGI qw(:standard); 
sub parse_form { 
foreach $p (param()) { 

$FORM{$p}= param($p); 
} 
}