#!/usr/bin/perl

use SOAP::Lite;

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

$result = $serv->getFastaEntry("GLP-00005e");

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