Programmation

use warnings;use strict;
use MIME::Lite;
undef $/;

print "Entrez le Sujet et puis  [Ctrl+D] :";
my $sujet = <STDIN>;

my $texte = <>; # le message dans un fichier (arg ligne de commande)
MIME::Lite->send('smtp','smtp.free.fr');
my $msg = new MIME::Lite
  From    => 'xxxxxx@free.fr',
  To      => 'yyyyyy@yahoo.com',
  Subject =>  $sujet,
  Type    =>  'TEXT',
  Data    => "$texte";
$msg->send();