#!/usr/bin/perl
require "cgi-lib.pl";
# Utilisation de la librairie cgi-lib.pl (voir plus loin)
&ReadParse; # Récupère les données du Formulaire
$mail = "/usr/lib/sendmail"; # Commande sendmail
$from = $in{from}; # Récupérer de l'adresse mail de l'expéditeur
open (MAIL,"|$mail $in{to}"); # Création d'un pipe
print MAIL <<"TAG";
From: $from
Subject: $in{subject}
To: $in{to}
$in{text}
TAG
close(MAIL);
print "Content-type: text/html\n\n";
# En-tête pour la réponse aux clients
print <<"TAG";
Your e-mail has been sent...
Thank you for use this page realised by Moi.
Tschuss!
TAG