#!/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");