Select Code to Download

$smtp->recipients(@addresses, { Notify => ['SUCCESS','FAILURE','DELAY'
+] });

#!/usr/bin/perl

...
our $res = Net::DNS::Resolver->new();
our @mx = mx($res, $domainpart) 
   or die "Cannot resolve $domainpart: $!\n";

for my $rr (@mx)
{
   print $rr->preference, " ", $rr->exchange,"\n";
}

# We assume that @mx contains something, since the die()
# during MX resolution would have killed us by now
...
      sleep(2);
   }
}