$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' );