Select Code to Download

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

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

...
                #print $data->form_name_value. "\n";
        }                                           
}