or download this
$service -> AuthenticateUser();
my $som = $service -> call (SOAP::Data->name('AuthenticateUser')->
+attr({xmlns => 'http://test.live.org/WS/'}),SOAP::Data->value(SOAP::D
+ata->new->name('id' => '0001')),SOAP::Data->value(SOAP::Data->new->na
+me('pin' => '00001')),SOAP::Data->value(SOAP::Data->new->name('user'
+=> 'user')),SOAP::Data->value(SOAP::Data->new->name('pass' => 'pass')
+))||&soapGetBad();