#!/usr/bin/python
import os, smtplib, string
 
server = smtplib.SMTP('smtp.free.fr')
server.set_debuglevel(0)
server.sendmail('delamachine@free.fr', 'destinataire@free.fr','From: moi@free.fr\r\nTo: vous@free.fr\r\nSubject: test\r\n\r\n Voila')
server.quit()

use Net::SMTP;
$smtp = Net::SMTP->new('smtp.free.fr'); # Connexion � un serveur SMTP
$smtp->mail('de@test.fr'); # exp�diteur
$smtp->to('a@test.fr'); # destinataire
$smtp->data(); # D�but du mail
$smtp->datasend();
# Envoi de l'ent�te.
$smtp->datasend("To: a@test.fr");
$smtp->datasend("From: de@test.fr\n");
$smtp->datasend("Subject: Mon sujet !\n"); # en-t�te
$smtp->datasend("\n"); # s�parateur en-t�tes - corps
# Envoi du corps du message.
$smtp->datasend("Hello, World!.\n");
$smtp->quit;