Checks a list of domains or e-mail addresses

domain-check

#!/usr/bin/perl
use Socket;

$\ = $/;
$debug = 1;

@d = @ARGV;
unless (@d) {
        print "Enter a list of domains or e-mail addresses to be checked, one per line:";
        chomp(@d = <>);
        }

for (@d) {
        s/.*@// if /\@/;
        $ret = gethostbyname($_);
        print "$_: " . inet_ntoa($ret) if $debug && $ret;
        exit 1 unless defined $ret;
        }

exit 0;