sub new()
{
        my $self={};
        $self->{FORM_VAR}=undef;
        bless($self);
        return $self;
}