use SOAP::Lite;
print SOAP::Lite
    -> uri('http://localhost/WebService1/Service1.asmx')
    -> proxy('http://localhost/WebService1/Service1.asmx')
    -> ConvertTemperature(0)
    -> result;

print "test for soap call using SOAP::Lite";