#!/usr/bin/perl

use SOAP::Lite;

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

$query = "GLP-00005e";

$result = $serv->getTextEntry($query);

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