#!c:\perl\bin\perl.exe

use warnings;

use SOAP::Lite;

my $soap = SOAP::Lite
	->uri('http://localhost/emailfind')
	->proxy('http://localhost/cgi-bin/soapdish.pl');
	

unless ($soap->fault) {
    print $soap->findingit();
  } else {
    print join ', ', 
      $soap->faultcode, 
      $soap->faultstring, 
      $soap->faultdetail;
  }