#!/usr/bin/perl -w

use strict;
use SOAP::Lite +trace=>qw{method trace debug};

my  $soap_response = SOAP::Lite
    -> uri('http://www.soaplite.com/Demo')
    -> proxy('http://services.soaplite.com/hibye.cgi')
    -> getmd5hash("test");

my  @out = $soap_response->paramsout;

my  $res = $soap_response->result; 
print "Content-type: text/html\n\n";  
print "Result is $res, outparams are @out\n";