#!/usr/bin/perl
use warnings;
use strict;
use Email::Send;
my $mailer = Email::Send->new({mailer => 'SMTP'});
$mailer->mailer_args([Host => 'smtp.gmail.com:465',
                      ssl => 1,
                      username => 'mike@mikebaas.com',
                      password => 'xxx']);

my $message = "From: mike\@mikebaas.com
To: test\@mikebaas.com
Subject: testing

This is the test message body.";

my $result = $mailer->send($message);
print "$result\n";