sub ParseForm 
{
    use CGI qw(:standard);
    my @keys = param();
    foreach my $key (@keys) {
        $formdata{$key} = param($key);
    }
}