#!/bin/perl
use CGI_Lite;               # Module CGI_Lite...
$cgi=new CGI_Lite;          # On cree un objet de type CGI
%in = $cgi->parse_form_data;# On lit les donnees

print "Content-type: text/html\n\n"; # Indispensable: Header

# Les champs du formulaire sont maintenant dans le tableau
# associatif %in
# On fait donc reference a un champ par $in{'champ'}.
# ATTENTION: Certains champs ont plusieurs valeurs
# (SELECT multiple, boites-a-cocher ...)
# dans ce cas on fait reference aux valeurs dans un tableau
# obtenu par $cgi->get_multiple_values ($in{'champ'})

print "Bonjour $in{'nom'} !<p>\n";
print "Voici donc une petite salade de fruits :\n";
print "<br>Compos&eacute;e de <ul>\n";

# Pour toute valeur
foreach $f ($cgi->get_multiple_values ($in{'fruit'})) {
    print "<li>$f\n";
}
print "</ul>\n";
print "Et pour la douceur un petit peu de $in{'sucre'}<br>\n";
if (exists($in{'remarques'})) { # Si le champ a ete rempli...
    print "Nous avons tenu compte de votre remarque<br>\n";
    print "<b>$in{'remarques'}</b>\n";
}