#!/usr/bin/perl

use SOAP::Lite;

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

$format = "xml";
$type = "list";

$result = $serv->getIdList($format,$type);

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