
   my ($sec, $min, $hr, 
       $mday, $mon, $yr,
       $wday, $yday, $dst)         = localtime();

   printf "%d/%d/%d %d:%02d:%02d\n",
      $mday, $mon, $yr, $hr, $min, $sec;



   @Month = qw(January February March April May June July
               August September October November December);

   print "The month is $Month[$mon]\n";


   @Jour = qw(Dimanche Lundi Mardi Mercredi 
              Jeudi Vendredi Samedi);
   print "Le jour de la semaine est $Jour[$wday]\n";

