Kiran

I am migrating a couple of my domains from mandrill to sparkpost
Net::SMTP by default uses SSLv3 which is not allowed by many providers due to the poodle vulnerability . I had a problem with sparkpost API and had to use Net::SMTPS which is a wrapper for Net::SMTP and you can specify the SSL version.

#!/usr/bin/perl 

use strict;
use warnings;
use Net::SMTPS;
use Data::Dumper;

my $USERNAME = 'SMTP_Injection';
my $PASSWORD = '';

my $smtps = Net::SMTPS->new("smtp.sparkpostmail.com", Port => 587,  doSSL => 'starttls', SSL_version=>'TLSv1');

$smtps->auth ( $USERNAME, $PASSWORD ) or DIE("Could not authenticate with gmail.\n");

#$smtps->mail('');  
$smtps->mail('no-reply@tabletennismatch.com');
$smtps->to('hello@gmail.com');
    my $msg =

        "Subject: Test\r\n".

        'To: hello@yourdomain.com'."\r\nFrom: ".'no-reply@tabletennismatch.com'."\r\n\r\n Hello From the other side";


$smtps->data();
$smtps->datasend( $msg );
$smtps->dataend();
$smtps->quit;