#!/usr/local/bin/perl -w
use SOAP::Lite;

my $service = SOAP::Lite-> service("http://xml.nig.ac.jp/" .
               "wsdl/GetEntry.wsdl");
 
$result = $service->getFASTA_CDSEntry("BN000101");

print $result;