#!C:/Perl/bin/perl.exe
use warnings;
use Mail::Sendmail; 
my $to_list = 'someone@gmail.com'; 
my $email = "\n\nThis email was generated automatically.\n"; 
my $MailFrom = 'dipeshkumar.dutta@gmail.com'; 
my $subject = "hello test"; 
my $message = "module test"; 
%mail = ( 
To => $to_list, 
From => $MailFrom,   
Subject => $subject, 
Message => $message 
); 


$mail{Smtp} = 'smtp.gmail.com';

sendmail(%mail)or die $Mail::Sendmail::error;
print "OK. Log says:\n", $Mail::Sendmail::log;
[download]

I am using the above script but facing the following error.

MAIL FROM: error (530 5.7.0 Must issue a STARTTLS command first. 5sm12
+048018qwg.10)
[download]

Can any body help me to fis this error. Thanks in Advance!