Just override SOAP::Trace::debug method and add you prints there:
my $caller = (caller(1));
$caller = (caller(2)) if $caller =~ /eval/;
chomp(my $msg = join ' ', @_);
printf STDERR "%s: %s\n", $caller, $msg;
# Add anything you want
From: mshtuk_dev [mailto:mshtuk_dev@...
Sent: Tuesday, September 28, 2004 5:11 PM
Subject: [soaplite] Get XML message
How to get XML message, which generated and sent by SOAP::Lite?
Can I get XML before sending request to WS?
Yahoo! Groups Links