#!/usr/bin/perl -w

use SOAP::Lite;

$domain = shift(@ARGV);


if (! $domain) {
        die "Usage: $0 domain-name";
}
print SOAP::Lite
    -> uri('http://localhost/Meticiel')
    -> proxy('http://localhost:8080/')
    -> is_available($domain)
    -> result;
print "\n";