$email = new Net::SMTP::TLS($account_smtp,Hello=>$account_smtp,
 Port=>25,User=>$account_user,Password=>$account_pass);

##</code><code>##

# old code
m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))$}i     
# new code
m{^(!?)(?:(SSL(?:v2|v3|v23|v2/3))|(TLSv1[12]?))}i

##</code><code>##

cpan> install Crypt::SSLeay
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/02packages.details.txt.gz
Fetching with LWP:
http://cpan.strawberryperl.com/modules/03modlist.data.gz
Database was generated on Thu, 19 Dec 2013 14:05:27 GMT

Updating database file ...
Done!
Crypt::SSLeay is up to date (0.64).