#!/usr/bin/perl

use strict;
use warnings;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

my $email = Email::Simple->create(
	header => [
		From    => 'me@gmail.com',
		To      => 'me@gmail.com',
		Subject => 'Works!!',
	],
	body => 'w00t',
);

my $sender = Email::Send->new(
	{   mailer      => 'Gmail',
		mailer_args => [
			username => 'me@gmail.com',
			password => 'my_password',
		]
	}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;