#!/usr/bin/perl
use SOAP::Lite;

$str="> t1 asdf
ASDF

> t2 asdf
ASDDF

> t3 asdf
SDFF";


printf SOAP::Lite -> service('http://xml.nig.ac.jp/wsdl/ClustalW.wsdl') -> analyzeSimple($str);
printf("\n");