Send email by GMail

gistfile1.pl

#!/usr/local/ActivePerl-5.14/bin/perl -w

#
# Send email by GMail
#

# Libs
use Net::SMTP::TLS;

# Main
my $mailer = new Net::SMTP::TLS(
	"smtp.gmail.com",
	Hello    =>      "smtp.gmail.com",
	Port     =>      587,
	User     =>      "*****\@gmail.com",
	Password =>      "*****"
);

$mailer->mail("*****\@gmail.com");
$mailer->to("*****\@gmail.com");

$mailer->data();
$mailer->datasend("Sent from Perl!");
$mailer->dataend();

$mailer->quit();