$form{loginform} = ( name1 => value1,
                     name2 => value2,
                     name3 => value3,
                   );

##</code><code>##

@forms = HTML::Form->parse($response->content, $baseuri);

foreach my $form (@forms)                           
{                                                   
        foreach my $data ($form->inputs)            
        {                                           
                $hash{$data}=1;                     
                #print $data->form_name_value. "\n";
        }                                           
}