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