use Net::SMTP; my $smtp = Net::SMTP->new('smtp.gmail.com', Hello => 'steampunkjunkies.net', Timeout => 30, Debug => 1, SSL => 1 ) || die "Error: $!"; $smtp->auth($CFG->{db_smtp_user}, $CFG->{db_smtp_pass}) or die "Could not authenticate with mail.\n"; $smtp->mail('andy@steampunkjunkies.net'); # from addr $smtp->to('foo@gmail.com'); $smtp->data(); $smtp->datasend("foo\n"); $smtp->quit();