sub html_parse {
    use CGI;
    my $q = shift || CGI->new;
    my %Vars;
    for my $key ( $q->param ){
        $Vars{ $key } = $q->param( $key );
    }
    return %Vars;
}