#!/usr/bin/perl

# Use strictures
use strict;
use warnings;

# Additional modules
use Socket;
use Net::DNS;
use Net::SMTP;

# At launch, ask for an email address
print "Please enter an email address: ";
my $address = <STDIN>;

# Break apart the address and do MX lookup against the 
# domain
our ($userpart, $domainpart) = split /@/, $address;
our $res = Net::DNS::Resolver->new();
our @mx = mx($res, $domainpart) 
   or die "Cannot resolve $domainpart: $!\n";