#!/usr/bin/perl
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime(time);
@hour_words = ("Il est minuit ", "Il est une heure ", "Il est deux heures ", "Il est trois heures ", "Il est quatre heures ", "Il est cinq heures ", "Il est six heures ", "Il est sept heures ", "Il est huit heures ", "Il est neuf heures ", "Il est dix heures ", "Il est onze heures ", "Il est midi ", "Il est treize heures ", "Il est quatorze heures ", "Il est quinze heures ", "Il est seize heures ", "Il est dix-sept heures ", "Il est dix-huit heures ", "Il est dix-neuf heures ", "Il est vingt heures ", "Il est vingt-et-une heures ","Il est vingt-deux heures ", "Il est vingt-trois heures ");
if    ($min ==  0) { print                      $hour_words[$hour], ""; }
elsif ($min ==  1) { print $hour_words[$hour],        "une.", "\n"; }
elsif ($min ==  2) { print $hour_words[$hour],        "deux.", "\n"; }
elsif ($min ==  3) { print $hour_words[$hour],        "trois.", "\n"; }
elsif ($min ==  4) { print $hour_words[$hour],        "quatre.", "\n"; }
elsif ($min ==  5) { print $hour_words[$hour],        "cinq.", "\n"; }
elsif ($min ==  6) { print $hour_words[$hour],        "six.", "\n"; }
elsif ($min ==  7) { print $hour_words[$hour],        "sept.", "\n"; }
elsif ($min ==  8) { print $hour_words[$hour],        "huit.", "\n"; }
elsif ($min ==  9) { print $hour_words[$hour],        "neuf.", "\n"; }
elsif ($min ==  10) { print $hour_words[$hour],        "dix.", "\n"; }
elsif ($min ==  11) { print $hour_words[$hour],        "onze.", "\n"; }
elsif ($min ==  12) { print $hour_words[$hour],        "douze.", "\n"; }
elsif ($min ==  13) { print $hour_words[$hour],        "treize.", "\n"; }
elsif ($min ==  14) { print $hour_words[$hour],        "quatorze.", "\n"; }
elsif ($min ==  15) { print $hour_words[$hour],        "quinze.", "\n"; }
elsif ($min ==  16) { print $hour_words[$hour],        "seize.", "\n"; }
elsif ($min ==  17) { print $hour_words[$hour],        "dix-sept.", "\n"; }
elsif ($min ==  18) { print $hour_words[$hour],        "dix-huit.", "\n"; }
elsif ($min ==  19) { print $hour_words[$hour],        "dix-neuf.", "\n"; }
elsif ($min ==  20) { print $hour_words[$hour],        "vingt.", "\n"; }
elsif ($min ==  21) { print $hour_words[$hour],        "vingt-et-une.", "\n"; }
elsif ($min ==  22) { print $hour_words[$hour],        "vingt-deux.", "\n"; }
elsif ($min ==  23) { print $hour_words[$hour],        "vingt-trois.", "\n"; }
elsif ($min ==  24) { print $hour_words[$hour],        "vingt-quatre.", "\n"; }
elsif ($min ==  25) { print $hour_words[$hour],        "vingt-cinq.", "\n"; }
elsif ($min ==  26) { print $hour_words[$hour],        "vingt-six.", "\n"; }
elsif ($min ==  27) { print $hour_words[$hour],        "vingt-sept.", "\n"; }
elsif ($min ==  28) { print $hour_words[$hour],        "vingt-huit.", "\n"; }
elsif ($min ==  29) { print $hour_words[$hour],        "vingt-neuf.", "\n"; }
elsif ($min ==  30) { print $hour_words[$hour],        "trente.", "\n"; }
elsif ($min ==  31) { print $hour_words[$hour],   "trente-et-une.", "\n"; }
elsif ($min ==  32) { print $hour_words[$hour],   "trente-deux.", "\n"; }
elsif ($min ==  33) { print $hour_words[$hour],   "trente-trois.", "\n"; }
elsif ($min ==  34) { print $hour_words[$hour],   "trente-quatre.", "\n"; }
elsif ($min ==  35) { print $hour_words[$hour],   "trente-cinq.", "\n"; }
elsif ($min ==  36) { print $hour_words[$hour],   "trente-six.", "\n"; }
elsif ($min ==  37) { print $hour_words[$hour],   "trente-sept.", "\n"; }
elsif ($min ==  38) { print $hour_words[$hour],   "trente-huit.", "\n"; }
elsif ($min ==  39) { print $hour_words[$hour],   "trente-neuf.", "\n"; }
elsif ($min ==  40) { print $hour_words[$hour],   "quarante.", "\n"; }
elsif ($min ==  41) { print $hour_words[$hour],   "quarante-et-une.", "\n"; }
elsif ($min ==  42) { print $hour_words[$hour],   "quarante-deux.", "\n"; }
elsif ($min ==  43) { print $hour_words[$hour],   "quarante-trois.", "\n"; }
elsif ($min ==  44) { print $hour_words[$hour],   "quarante-quatre.", "\n"; }
elsif ($min ==  45) { print $hour_words[$hour],   "quarante-cinq.", "\n"; }
elsif ($min ==  46) { print $hour_words[$hour],   "quarante-six.", "\n"; }
elsif ($min ==  47) { print $hour_words[$hour],   "quarante-sept.", "\n"; }
elsif ($min ==  48) { print $hour_words[$hour],   "quarante-huit.", "\n"; }
elsif ($min ==  49) { print $hour_words[$hour],   "quarante-neuf.", "\n"; }
elsif ($min ==  50) { print $hour_words[$hour],   "cinquante.", "\n"; }
elsif ($min ==  51) { print $hour_words[$hour],   "cinquante-et-une.", "\n"; }
elsif ($min ==  52) { print $hour_words[$hour],   "cinquante-deux.", "\n"; }
elsif ($min ==  53) { print $hour_words[$hour],   "cinquante-trois.", "\n"; }
elsif ($min ==  54) { print $hour_words[$hour],   "cinquante-quatre.", "\n"; }
elsif ($min ==  55) { print $hour_words[$hour],   "cinquante-cinq.", "\n"; }
elsif ($min ==  56) { print $hour_words[$hour],   "cinquante-six.", "\n"; }
elsif ($min ==  57) { print $hour_words[$hour],   "cinquante-sept.", "\n"; }
elsif ($min ==  58) { print $hour_words[$hour],   "cinquante-huit.", "\n"; }
elsif ($min ==  59) { print $hour_words[$hour],   "cinquante-neuf.", "\n"; }