use SOAP::Lite + trace => 'debug';
my $svc;
my $resp; 
 
eval
{
 
$svc= SOAP::Lite
    ->service("http://localhost:8000") 
    ->proxy("http://localhost);
$resp = $svc->call(SOAP::Data->name('Test')
       ->attr ({'xmlns'=>'http://sth.sth.sth'})
       => "TEXT_APPEAR");
}; 
die "Got Error: $@" if($@);