#!/usr/bin/perl
use warnings;
use strict;
use Email::Stuff;
my $return = Email::Stuff->to('test@mikebaas.com')
               ->from('mike@mikebaas.com')
               ->subject('Test Subject')
               ->text_body('This is a test.')
               ->send('SMTP', Host => smtp.gmail.com:465',
                              ssl      => 1,
                              username => mike@mikebaas.com',
                              password => 'x',
                      );