#!/usr/bin/perl -w
##
## sutechy@sutechy.com $  ./find-domain.pl sutechy.com
## FIND DOMAIN = sutechy.com
## sutechy.com DOMAIN NOT AVAILABLE
##
use strict;
use Net::Domain::Registration::Check;

my $domain=$ARGV[0];
print "FIND DOMAIN = $domain\n";
print domain_on_parent($domain) ? "$domain DOMAIN NOT AVAILABLE\n" : "$domain DOMAIN AVAILABLE\n";