$VAR1 = bless( {
                 'default_charset' => 'UTF-8',
                 'enctype' => 'application/x-www-form-urlencoded',
                 'accept_charset' => 'UNKNOWN',
                 'action' => bless( do{\(my $o = 'http://*_edit_*/proclogin')}, 'URI::http' ),
                 'method' => 'POST',
                 'attr' => {
                             'method' => 'POST',
                             'id' => 'fLogin'
                           },
                 'inputs' => [
                               bless( {
                                        'value_name' => '',
                                        'value' => '',
                                        'name' => 'txtUserID',
                                        'class' => 'TextInput',
                                        'id' => 'txtUserID',
                                        'type' => 'text',
                                        'size' => '20'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'readonly' => 1,
                                        'value_name' => '',
                                        'value' => '',
                                        'name' => 'sessionTermNum',
                                        'id' => 'sessionTermNum',
                                        'type' => 'hidden',
                                        'size' => '20'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'value_name' => '',
                                        'value' => '',
                                        'onkeypress' => 'return vfnCheckKeyLogin(event);',
                                        'name' => 'txtPassword',
                                        'class' => 'TextInput',
                                        'id' => 'txtPassword',
                                        'type' => 'password',
                                        'size' => '20'
                                      }, 'HTML::Form::TextInput' ),
                               bless( {
                                        'readonly' => 1,
                                        'value_name' => '',
                                        'value' => 'login',
                                        'name' => 'cmd',
                                        'id' => 'cmd',
                                        'type' => 'hidden',
                                        'size' => '20'
                                      }, 'HTML::Form::TextInput' )
                             ]
               }, 'HTML::Form' );