#!/usr/bin/perl
use Net::SMTP;
my $smtp = Net::SMTP->new('rintintin.colorado.edu');
die "Ugh." unless defined $smtp;
my @recipients = $smtp->recipient('collin.starkweather@colorado.edu','joe@flugwumpet.com', Notify => 1, SkipBad => 1);
print "Recipients are [@recipients]\n";