#!/usr/bin/perl -w
use warnings;
use strict;

use Net::SMTP::TLS;

my $EMAIL_SMTP='smtp.gmail.com';
my $EMAIL_HELLO='me@mydomain.com'; # ?????
my $EMAIL_PORT=587;
my $EMAIL_SENDER = 'mygmail@gmail.com';
my $EMAIL_PASSWORD='s3cr3t';

my $mailer = new Net::SMTP::TLS
  (
     $EMAIL_SMTP,
     Hello   =>      $EMAIL_HELLO,
     Port    =>      $EMAIL_PORT,
     User    =>      $EMAIL_SENDER,
     Password=>      $EMAIL_PASSWORD,
  );

# this doesn't work
#$mailer->datasend("From: me\@mydomain.com");
#$mailer->datasend("To: you\@yourdomain.com");
#$mailer->datasend("Subject: This is a test");
#$mailer->datasend("\n");
#$mailer->datasend("blahblah\n");


$mailer->mail('me@mydomain.com');
$mailer->to(you@yourdomain.com');
$mailer->data;
$mailer->datasend("Sent thru TLS!");
$mailer->dataend;
$mailer->quit;