#! /usr/bin/perl
###################################################################
#                                                                 #
# yeast_metaboliner_client.pl: Web service client for MetaboliNER #
# Function: Recognize yeast metabolite names in text              #
#                                                                 #
###################################################################

use SOAP::Lite;
use strict;
use warnings;

my $input_str = "Galactose is a type of sugar that is less sweet than glucose.";
my $id = "guest";

my $soap = SOAP::Lite
  -> service('http://nactem-t1.mib.man.ac.uk/metaboliner/yeast_metaboliner.wsdl');

my $result = $soap->metaboliner($input_str, $id);
print $result;
