#!/usr/bin/perl -w

use MIME::Lite;
use strict;
use warnings;


my$msg = MIME::Lite->new ( 
    From     =>  'fakessh@fakessh.eu',
    To       =>  'john.swilting@wanadoo.fr',
    Subject  =>  'test'
    );
$msg->send('tls','domaine.tld',Hello => 'domaine.tld', Port => "587", User => "john" , Password => "azerty" , Debug => 4 );