I have this perl script:

```
#!/usr/bin/perl

use Net::SMTP::TLS;

my $file="/var/www/myweb/textfile.txt";

my $smtp = new Net::SMTP::TLS(
'smtp.gmail.com',
    Hello => 'smtp.gmail.com',
    Port => 587,
    User => 'mymail@gmail.com',
    Password => 'mypassword',
);

$smtp->mail('mymail@gmail.com');
$smtp->to('destinationmail@hotmail.com');
$smtp->data();
$smtp->datasend("Subject: Subject of mail \n");
$smtp->datasend("\n");

#make sure file exists
if (-e $file) {
    $smtp->datasend("body of the mail");
    #read the file one line at a time
    open( RFILE, "<$file" )||print "could not open file";
    while (my $line  = <RFILE>){
            $smtp->datasend("$line");
    }
    close(RFILE) || print "could not close file";
}
else {
    #print "did not find the report $file ";
    exit 1;
}
#End the message.
$smtp->dataend();
#Close the connection to your server.
$smtp->quit();

```

This script open the textfile.txt and put its content in an email body. Since yesterday, this script was working fine in 4 different Linux computers. Now it returns this message:

> 
> Couldn't start TLS: SSL connect attempt failed because of handshake problems
>  error:1409442E:SSL routines:SSL3\_READ\_BYTES:tlsv1 alert protocol
>  version at scriptname.pl line 7
> 
> 
> 

I have not found any documentation about any change on Gmail SMTP service. How can I do?

Thanks