#!perl

  use SOAP::Lite;

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

  @res = $soap_response->paramsout;

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