#!/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 "