#!/usr/bin/perl

require 5;
use strict;
use Email::Valid;
use vars qw($addr $email);

if (@ARGV) {
    foreach $email (@ARGV) {
	eval {
	    unless ($addr = Email::Valid->address( -address => $email,
						  -mxcheck => 1 )) {
		warn "address failed $Email::Valid::Details check.";
	    }
	};
	warn "an error was encountered: $@" if $@; 
    }
} else {
    print <<EOF;
Usage: $0 [email(s)]
Synopsis: checks email address is rfc822 compliant, and performs an mx check on the domain.
EOF
}