SetHandler perl-script PerlHandler Apache::SOAP PerlSetVar dispatch_to "DomainCheck" ##

##

#!/usr/bin/perl
use strict;
use SOAP::Lite;

my $proxy = "https://10.191.110.64:8443/DomainCheck";
my $uri = "http://10.191.110.64/DomainCheck";

my $soap = SOAP::Lite->uri($uri)->proxy($proxy);
$soap->on_debug(sub{print@_});

my $result = $soap->Check("perl.com");

##

##



  
    
      perl.com
    
  



##

##



  
    
      
        Valid Domain
        0
        0
      
    
  


##