#!/usr/bin/perl -w

require 5;
use strict;
use Email::Valid;

my $email = 'demon warez dood@aol.com';

eval {
    if (my $addr = Email::Valid->address( -address => $email,
                                          -mxcheck => 1,
                                          -fudge   => 1 )) {
        print "$addr OK\n";
    } else {
        print "$addr failed $Email::Valid::Details check.\n";
    }
};
warn "an error was encountered: $@" if $@;
[download]