#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new('campus0.mtu.edu');
@res = $smtp->expand($ARGV[0]);
print @res;
$smtp->quit;