use SOAP::Lite 
   +trace => [ transport => sub { print $_[0]->as_string } ];