#!/usr/bin/perl ($secondes, $minutes, $heures, $jour_mois, $mois, $an, $jour_semaine, $jour_calendaire, $heure_ete) = localtime(time); $an+=1900; $mois+=1; print "Content-type: text/html\n\n"; #print "Content-type: text/plain\n\n"; print "Ajout d'une depense\n"; print "\n"; print "Nous sommes le $jour_mois / $mois / $an
\n"; print "
"; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; print "\n"; print "\n"; print ""; print ""; print "
JourMoisAnneeMontantQuand / Ou ?

"; print ""; print "
\n"; print "\n";