#!/usr/local/bin/perl -w
use SOAP::Lite;
# specify WSDL file
my $service = SOAP::Lite-> service("http://xml.nig.ac.jp/" .
               "wsdl/GetEntry.wsdl");
 
# We will use getFASTA_CDSEntry for obtaining
# the CDS in FASTA format with a given Accession number
# Now call web service with Accession BN000101
$result = $service->getFASTA_CDSEntry("BN000101");
# print result which is in fasta format
print $result;