$email = "user\@perlmonks.org";

($username,$domain) = split(/@/,$email);

use Net::DNS;
$resolver = Net::DNS::Resolver->new();

$response ||= $resolver->query($domain,"MX") || $resolver->query($doma
+in,"A");

defined ($response) ?  print "$domain is valid\n" : print "$domain is 
+invalid\n";
[download]