use CGI;
print CGI-header;

use SOAP::Lite;
print SOAP::Lite
    -> uri('http://www.soaplite.com/Demo')
    -> proxy('') # set this to your SOAP service URL
    -> hi()
    -> result;