Login Results

$res = $ua->post($my_url, \%form_data); ##

##

$response = $xml->XMLin($res->content);
print "CallerLastName is:", $response->{CallerLastName}, "\n";
print "ReturnStatus is:", $response->{ReturnStatus}, "\n";
print "CallerPhoneNumber is:", $response->{CallerPhoneNumber}, "\n";

##

##



Login Results


Database Results

  
    Return Status: Done
  



..........SNIP..........

####

$VAR1 = {
          'body' => {
                    'table' => [
                               {
                                 'tr' => {
                                         'td' => {
                                                 'ReturnStatus' => 'Done',
                                                 'content' => "Return Status:\x{
a0}"
                                               }
                                       }
                               },
                               {
                                 'tr' => [
                                         {
                                           'td' => {
                                                   'StateInfo' => '0014378',
                                                   'content' => "StateInfo:\x{a0
}"
                                                 }
                                         },
                                         {
                                           'td' => {
                                                   'MultipleSubAccount' => 'N',
                                                   'content' => "Multiple Sub Ac
count:\x{a0}"
                                                 }
                                         },
                                         {
                                           'td' => {
                                                   'UserCount' => '1',
                                                   'content' => "User Count:\x{a0}"
                                                 }
                                         },
                                         {
                                           'td' => {
                                                   'content' => "Default Account
:\x{a0}",
                                                   'DefaultAccount' => '114879'

                                                 }
                                         },
                                         {
..........SNIP..........

####

print "content is:", $response->{body}->{table}->{tr}->{td}->{content}, "\n";

  
    StateInfo: 0014378
  
  
    Multiple Sub Account: N
  
  
    Subscription Count: 1
  
  
    Default Account: 114879
  
  
    Caller Phone Number: 8005551212
  
  
    Caller House Number:        123
  
  
    Apartment Num:         
  
  
    Caller Salutation: 
  
  
    Caller First Name: JOHN
  
  
    Caller Last Name: SMITH
  
  
    Salutation: 
  
  
        FirstName: JOHN
  
  
    MiddleInitial: 
  
  
    LastName: SMITH