Check if a domain resolves

gistfile1.txt

#!/usr/bin/perl


use Net::DNS::Check;

sub check_domain_resolution {

my $domain = $ARGV[0];

if (!defined $domain) {
print "Please define a domain.  Usage:  check-domain-resolution.pl domain \n";
}
else {

my $dnscheck = new Net::DNS::Check(
	domain   =>  "$domain"
);

print ($dnscheck->check()?"Resolves\n":"Does not resolve\n");
}
}
check_domain_resolution();