#!/bin/perl
use MIME::Lite;
MIME::Lite->send('smtp', "emailserver.com", Timeout=>90);
my $Subject = "This email was generated automatically.\n";
my $MailFrom = "mygmail@gmail.com ";
my $to_list = 'john.kinney@gmail.com,jboss.s@gmail.com';
my $cc_list = 'vid.coll@gmail.com';
$msg = MIME::Lite->new(
From => $MailFrom,
To => $to_list,
Cc => $cc_list,
Bcc => $bcc_list,
Subject => $subject,
Type => 'TEXT',
Encoding=> '7bit',
Data => $a
);
$msg->send()
}