WWW::Mechanize::field problem

[Patton, Billy N]

I’m having trouble with setting a field on a web page.
Here is how I’m attempting to do this:

  ##
  ## fourth page
  ##
  ok($mech->form_name('ftp_information'),"getting the ftp_information form");
  ok($mech->field('pFTPHostname','dogs'), 'Setting ftp host name to dogs');
  ok($mech->field('pFTPUsername','dogs'), 'Setting ftp user name to dogs’);

It fails on the pFTPHost name;

Here’s the raw html :
<div id='myForm'>
        <span class='required'>*</span> indicates Required Field<br/><br/>
        <table border='0' cellpadding='3' cellspacing='0' width='100%'>
        <form name='ftp_information' method='POST' action='file_admin.cgi'>
        <input type='hidden' name='rm' value='process_ftp_information'>
        <input type='hidden' name='CGISESSID' 
value='d02df1fb65eb3b2058770f5e395f1451'>
        <input type='hidden' name='ftp_information' value='1'>
        <tr>
        <td class='fieldLabel' width='45%'>
        FTP Hostname or IP Address:
        </td>
        <td class='field'>
        <input type='text' class='text' name='pFTPHostname' value='' ><span 
class='required'> *</span>
        </td>
        </tr>
        <tr>
        <td class='fieldLabel'>
        FTP Username:
        </td>
        <td class='field'>
        <input type='text' class='text' name='pFTPUsername' value='' ><span 
class='required'> *</span>
        </td>
        </tr>
        <tr>
        <td class='fieldLabel'>
        FTP Password:
        </td>
        <td class='field'>
        <input type='text' class='text' name='pFTPPassword' value='' ><span 
class='required'> *</span>
        </td>
        </tr>
        <tr>
        <td colspan='2' align='center'><br/><input type='submit' 
value='Continue' class='button'></td>
        </tr>
        </form>
        </table>
        </div>



The form :

$VAR1 = bless( {
  'accept_charset' => 'UNKNOWN',
  'action' => bless( do{\(my $o = 
'http://cportal-test.dfw0.hypercube-llc.com/html/file_admin.cgi')}, 'URI::http' 
),
  'attr' => {
    'method' => 'POST',
    'name' => 'ftp_information'
  },
  'default_charset' => 'UTF-8',
  'enctype' => 'application/x-www-form-urlencoded',
  'inputs' => [
    bless( {
      'name' => 'rm',
      'readonly' => 1,
      'type' => 'hidden',
      'value' => 'process_ftp_information',
      'value_name' => ''
    }, 'HTML::Form::TextInput' ),
    bless( {
      'name' => 'CGISESSID',
      'readonly' => 1,
      'type' => 'hidden',
      'value' => '3facae5659bca900e5ef3d6c302aad4e',
      'value_name' => ''
    }, 'HTML::Form::TextInput' ),
    bless( {
      'name' => 'ftp_information',
      'readonly' => 1,
      'type' => 'hidden',
      'value' => '1',
      'value_name' => ''
    }, 'HTML::Form::TextInput' ),
    bless( {
      'class' => 'text',
      'name' => 'pFTPHostname',
      'type' => 'text',
      'value' => '',
      'value_name' => '*'
    }, 'HTML::Form::TextInput' ),
    bless( {
      'class' => 'text',
      'name' => 'pFTPUsername',
      'type' => 'text',
      'value' => '',
      'value_name' => '*'
    }, 'HTML::Form::TextInput' ),
    bless( {
      'class' => 'text',
      'name' => 'pFTPPassword',
      'type' => 'text',
      'value' => 'cats',
      'value_name' => '*'
    }, 'HTML::Form::TextInput' ),
    bless( {
      'class' => 'button',
      'type' => 'submit',
      'value' => 'Continue',
      'value_name' => ''
    }, 'HTML::Form::SubmitInput' )
  ],
  'method' => 'POST'
}, 'HTML::Form' );