Select Code to Download

$VAR1 = bless( {
                 'extra_attr' => {
...
                                      }, 'HTML::Form::SubmitInput' )
                             ]
               }, 'HTML::Form' );