use Net::SMTP;

my $smtp=Net::SMTP->new('picky.server.com') or die "Can't connect to smtp server";
$smtp->auth('user','passwd') or die "Can't authenticate with smtp server";
# rest of smtp session goes here, I guess