#!/usr/bin/env perl

use warnings;
use strict;
use Email::Valid;

my $email = $ARGV[0];

print "Testing email: '$email'...\n";

unless ( Email::Valid->address( -address => $email, -mxcheck => 1 ) ) {
    die "Email failed $Email::Valid::Details check.\n";
}

print "Email is valid\n";