#!/usr/bin/perl
use warnings;
use strict;
use Net::SMTP::SSL;                                                                 

my $user = 'me@gmail.com';
my $pass = 'foobarbaz';

#$server     = 'your-smtp-server';
my $server     = 'smtp.gmail.com';
my $to         = 'me@gmail.com';
my $from_name  = 'me';
my $from_email = 'me@gmail.com';
my $subject    = 'smtp-ssl-auth test';

my $smtps = Net::SMTP::SSL->new($server, 
                               Port => 465,
                               DEBUG => 1,
                               ) or warn "$!\n"; 

# I just lucked out and this worked
defined ($smtps->auth($user, $pass))
    or die "Can't authenticate: $!\n";


$smtps->mail($from_email);
$smtps->to($to);
$smtps->data();
$smtps->datasend("To: $to\n");
$smtps->datasend(qq^From: "$from_name" <$from_email>\n^);
$smtps->datasend("Subject: $subject\n\n");
$smtps->datasend("This will be the body of the message.\n");
$smtps->datasend("\n--\nVery Official Looking .sig here\n");
$smtps->dataend();
$smtps->quit();

print "done\n";