use Mail::Sendmail;

my $MailFrom = 'test@gmail.com';
my $to_list  = 'john@gmail.com';
my $cc_list  = 'frank@yahoo.com';
my $subject  = "hello test";
my $message  = "This email was generated automatically.\n";

sendmail(
	Smtp => 'mailtest.gmail.com',
	From    => $MailFrom,
	To      => $to_list,
	Cc      => $cc_list,
	Subject => $subject,
	Message => $message,
);