Send email with GMail

gmail.pl

#!/usr/bin/env perl

use common::sense;
use Net::SMTP::TLS;
use MIME::Lite;

my $msg = MIME::Lite->new(
    From    => 'juniiior182@gmail.com',
    To      => 'juniiior182@gmail.com',
    Subject => 'GMail with Perl',
    Type    => 'multipart/signed',
);

$msg->attach(
    Type => 'TEXT',
    Data => 'fvox'
);

my $mailer = new Net::SMTP::TLS(
    'smtp.gmail.com',
    Port     => 587,
    User     => 'juniiior182@gmail.com',
    Password => 'SENHA'
);

$mailer->mail;
$mailer->to('juniiior182@gmail.com');
$mailer->data;
$mailer->datasend($msg->as_string);
$mailer->dataend;
$mailer->quit;