sub Vars {
    my $self = shift;
    my %formdata;
    foreach my $name ( $self->param ) {
        my @values = $self->param( $name );
        $formdata{ $name } = scalar @values == 1 ? $values[0] :
                                                  \@values    ;
    }
    return \%formdata;
}