use SOAP::Lite;

my %meine_interne_var = (
	foo = 'bar';
);

my $tracedatei = sub {
	my ($trace,$ref) = @_;
	if (defined $ref->{foo}) { print "gewonnen!\n'$trace'\n"; }
};

SOAP::Lite->schalte_trace_ein(
	+trace => [transport => $tracedatei(hier_der_trace_inhalt_aus_SOAP::Lite,\%meine_interne_var)]
);