#!/usr/bin/perl

use SOAP::Lite;

$wsdl = "http://localhost:8081/rcmg/services/GPDB.wsdl";
$serv = SOAP::Lite->service($wsdl);

$query = "6239";
$type = "list";
$offset = "0";
$count = "0";

$result = $serv->searchTaxId($query,$type,$offset,$count);

print "content-type: text/html\n\n";
print "$result\n";