#!/usr/local/bin/perl
use SOAP::Lite;
#use SOAP::Lite +trace;

print "Connecting to the Server..\n";
 ## ->uri('urn:#getHistoryNotes')
   
   my $ACTION='urn:#getHistory';
   
  $som= SOAP::Lite
    ->readable(1)
    ->uri('http:///services/servicelayer')
    ->proxy('/services/crm')
    ->on_action(sub { return $ACTION; } )
    #->on_action('urn#getHistoryNotes')
    ->GetHistoryNotesRequest(SOAP::Data->name('customerId' => '123456')->type('string'))
    ;
#  my $som = $soap->call(GetHistory());
  
  if ($som->fault) {
    print "We got a SOAP fault:\n";
    print "  faultcode:   ". $som->faultcode ."\n"; 
    print "  faultstring: ". $som->faultstring ."\n"; 
    print "  faultactor:  ". $som->faultactor ."\n"; 
    print "  faultdetail: ". $som->faultdetail ."\n"; 
    exit();
}

print $som->result();
print "som returned value $som \n";
-------------------------