$VAR1 = bless( {
                 'extra_attr' => {
                                   'name' => 'f'
                                 },
                 'enctype' => 'application/x-www-form-urlencoded',
                 'action' => bless( do{\(my $o = 'http://www.google.com/search')}, 'URI::http' ),
                 'method' => 'GET',
                 'inputs' => [
                               bless( {
                                        'value' => 'en',
                                        'name' => 'hl',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'value' => 'ISO-8859-1',
                                        'name' => 'ie',
                                        'type' => 'hidden'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'maxlength' => '256',
                                        'value' => '',
                                        'name' => 'q',
                                        'type' => 'text',
                                        'size' => '55'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'value' => 'Google Search',
                                        'name' => 'btnG',
                                        'type' => 'submit'
                                      }, 'HTML::Form::SubmitInput' ),
                               bless( {
                                        'value' => 'I\'m Feeling Lucky',
                                        'name' => 'btnI',
                                        'type' => 'submit'
                                      }, 'HTML::Form::SubmitInput' )
                             ]
               }, 'HTML::Form' );