my $soap = SOAP::Lite
    -> uri('http://127.0.0.1/MyModule')
    -> proxy('http://127.0.0.1:1203')
    -> outputxml(1)
;;;;;;;;;
$soap->serializer->register_ns('http://www.cnnmedia.com', 'cnn' );
$soap->transport->add_handler("request_send",  \&pp_dump );
$soap->transport->add_handler("response_done", \&pp_dump );

$soap -> processEpisodicProgramme(SOAP::Data->type( 'xml' => $xmltest ));




sub pp_twig {
    use XML::Twig;
    open my($fh), '>', \my $str;
    no warnings 'newline';
    XML::Twig->new(qw! pretty_print record !)->xparse(@_)->print( $fh );
    return $str;
}

sub pp_dump {
    my $content = $_[0]->content('');
    $_[0]->content( pp_twig($content) );
    print $_[0]->as_string,"\n";
    return;
}

__END__
...
<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:cnn="http://www.cnnmedia.com" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soap:Body>
    <processEpisodicProgramme xmlns="http://127.0.0.1/MyModule">	
      <episodicProgrammePlaceholder xmlns="http://www.cnnmedia.com">
...