[Perl] Envoyer un mail avec MIME::Lite

Voici les commandes pour envoyer un mail en PERL

use MIME::Lite;
$email = new MIME::Lite
		 	From =>'Jean-Bob@em-corporation.fr',
		 	To =>'Billy@yahoo.co.uk',
			 Cc =>'',
			 Bcc =>'',
			 Subject =>'Salut' ,
		 	Type =>'TEXT',
		 	Data =>"Salut Billy,\n\nEs-tu disponible ce soir pour aller boire un verre ?\n\nCordialement,\n--\nJean-Bob" ;
			$email -> send();

Selon la configuration du serveur il est possible qu’il faille rajouter l’adresse du serveur SMTP à utiliser pour envoyer le mail

$email -> send('smtp', '@IP');