use SOAP::Lite;

my $babelfish = SOAP::Lite ->
    service('http://www.xmethods.net/sd/BabelFishService.wsdl');

my $nameis = $babelfish->
    BabelFish('en_es','My name is Shane Caraveo.');

print $nameis;