#!C:/Perl/bin/perl -w
 
  use strict;  
  use SOAP::Lite;
#  use SOAP::Lite +debug;
 
  my $soap;
 
  print "Started\n";
 
  $soap = SOAP::Lite                                             
    -> uri('http://www.soaplite.com/Demo')                                             
    -> proxy('http://services.soaplite.com/hibye.cgi')
    -> hi();
 
  if ( $soap -> fault ) {
    print "Failure - ".$soap->faultstring."\n";
  }
  else {
    print "Success - ".$soap->result."\n";
  }
 
  print "\n";
 
  $soap = SOAP::Lite                                             
#    -> uri('http://10.104.196.75/Demo') 
    -> uri('http://10.104.196.75/Demo')                                       
    -> proxy('http://10.104.196.75/cgi-bin/hibye.cgi')
#    -> proxy('http://localhost/cgi-bin/hibye.cgi')
    -> bye();                                                    
#    -> result;
 
  if ( $soap -> fault ) {
    print "Failure - ".$soap->faultstring."\n";
  }
  else {
    print "Success - ".$soap->result."\n";
  }
 
  print "Finished\n";