package My::SOAP::Server;

BEGIN
{
  ## configure log here (i like Log::Log4perl)
}

use SOAP::Lite +trace => [ 
  all => sub{
    print $log join( "\n\t" => 'ACK!', @_ ), "\n\n"
  },
];