sub Parse_Form {
    use CGI qw/:standard/;

    foreach my $key ( param() ) {
        my @vals = param( $key );
        if ( scalar @vals == 1 ) {
            $formdata{ $key } = $vals[0];
        } elsif ( ! @vals ) {
            $formdata{ $key } = undef;
        } else {
            # This should be adjusted as necessary.
            $formdata{ $key } = \@vals;
        }
    }
}