Select Code to Download

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

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

cpan> install Crypt::SSLeay
Fetching with LWP:
http://cpan.strawberryperl.com/authors/01mailrc.txt.gz
...
Updating database file ...
Done!
Crypt::SSLeay is up to date (0.64).