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