use Net::SMTPS ;
use MIME::Lite ;

my $msg = MIME::Lite ->new (  
From => 'xxx@ddd.com',
To => 'xxx@ddd.com',
Subject => 'Test Message',
Data => 'This is a test',
Type => 'text/html'
);

my $USERNAME = 'xxx@ddd.com';
my $PASSWORD = 'yyyyyyyy'; 

my $smtps = Net::SMTPS->new("ddd.com", Port => 587,  doSSL => 'starttls', Debug => 1, Debug_SSL => 3);


$smtps->auth ( $USERNAME, $PASSWORD ) or die("Could not authenticate\n");

$smtps->mail('xxx@ddd.com');
$smtps->to('xxx@ddd.com');
$smtps->data();
$smtps->datasend( $msg->as_string() );  
$smtps->dataend();  
$smtps->quit;