@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";
        }                                           
}