my $webService = SOAP::Lite-> uri($self->{NAMESPACE})          
          -> on_action(sub{sprintf '%s/%s', @_ })
          -> outputxml("1")  
          -> proxy($self->{ENDPOINT});

   eval{
 my $response = $webService
      ->call(SOAP::Data->name("SubmitXml")->attr({xmlns => $self->{NAMESPACE}}),
             SOAP::Data->name(Profile => $self->{HAP})->type('string'),
             SOAP::Data->name(Request => $xmlRequest)->type('xml'),
             SOAP::Data->name(Filter => $xmlFilter)->type('xml'));
     };
    if($@){print $@}


 open RES,">>Responce.log";
 if (defined $response) {
 print RES $response."\n";
 }else {print RES "========No Response======== \n";}
 
 close RES;