Envoi mail

Bonjour,

Je voudrais savoir comment faire pour envoyer un mail en mode console. Je précise que je n’utilise pas de server mail.

Merci.

[/code]use Net::SMTP;
$serveur = "smtp.tonfai.fr";

$smtp = Net::SMTP->new($serveur,
                       Hello => 'chezmoi.fr');

$smtp->mail("moienlocal\@chezmoi.fr");
$smtp->to($ARGV[0]);
$smtp->data();
$smtp->datasend("Subject: message de console\n");
$smtp->datasend ("\n");
open(FIC,$ARGV[1]);
while($ligne=<FIC>) {
        print $ligne ;
        $smtp->datasend ($ligne)
        }
$smtp->dataend();
$smtp->quit;
close($ARGV[1]);

Si tout va bien, ce truc employé comme
./nom.pl alfred@laposte.net message
envoies le fichier message à alfred. Mais il vaut mieux installé exim et utilisez mail, c’est + simple.