$VAR1 = bless( {
                 'fieldvals' => {},
                 'checkboxstate' => {},
                 'base' => undef,
                 'buttontypes' => {
                                    'Submit2' => [
                                                   'submit'
                                                 ]
                                  },
                 'buttons' => [
                                'Submit2'
                              ],
                 'upload' => 0,
                 'selections' => {
                                   'bar' => [
                                              undef,
                                              undef,
                                              undef
                                            ]
                                 },
                 'buttonvals' => {
                                   'Submit2' => [
                                                  'Go!'
                                                ]
                                 },
                 'method' => 'post',
                 'fieldtypes' => {
                                   'bar' => 'select'
                                 },
                 'fields' => [
                               'bar'
                             ],
                 'name' => 'form1',
                 'allfields' => [
                                  'bar'
                                ],
                 'debug' => undef,
                 'link' => '/foo/bar.php'
               }, 'HTTP::Request::Form' );

##</code><code>##

$response = $userAgent->request( $form->press( "Submit2" ));

##</code><code>##

@forms2 = HTML::Form->parse( $text, "here.com");
$d2 =  Data::Dumper->new( \@forms2 );
print $d2->Dump;

##</code><code>##

$VAR1 = bless( {
                 'inputs' => [
                               bless( {
                                        'seen' => [
                                                    1,
                                                    0,
                                                    0
                                                  ],
                                        'menu' => [
                                                    'OPTION1',
                                                    'OPTION2',
                                                    'OPTION3'
                                                  ],
                                        'current' => 0,
                                        'type' => 'option',
                                        'name' => 'bar'
                                      }, 'HTML::Form::ListInput' ),
                               bless( {
                                        'class' => 'login',
                                        'value' => 'Go!',
                                        'type' => 'submit',
                                        'name' => 'Submit2'
                                      }, 'HTML::Form::SubmitInput' )
                             ],
                 'extra_attr' => {
                                   'name' => 'form1'
                                 },
                 'enctype' => 'application/x-www-form-urlencoded',
                 'method' => 'POST',
                 'action' => bless( do{\(my $o = '/foo/bar.php')}, 'URI::_foreign' )
               }, 'HTML::Form' );