use strict;

use SOAP::Lite +trace => 'all';

 

my ($req,$res,$FromCurrency,$ToCurrency,%hash,$method);

 

 

 

$FromCurrency= SOAP::Data->name(FromCurrency=>'USD')->uri('http://www.webserviceX.NET/');

$ToCurrency = SOAP::Data->name(ToCurrency=>'INR')->uri('http://www.webserviceX.NET/');

$res =  SOAP::Lite->service('file:./CurrencyConvertor.wsdl')->ConversionRate($FromCurrency,$ToCurrency);


if ($res->fault) {

    

    print $res->faultstring();

}

else {

    

    print $res->result;

}