#!/usr/bin/perl
     system "clear";
     print " Bonjour.\n Quel est votre prénom ? ";
     chop ($pren = <STDIN>);
     @date = gmtime(time);
     print"\n";
     @mois = ("janvier","février","mars","avril","mai","juin",
              "juillet","aout","septembre","octobre","novembre","décembre");
     $an = 1900 +  $date[5] ;
     $phr  =  " Le $date[3] $mois[$date[4]] $an " ;
     $phr .=  "à $date[2]:$date[1]:$date[0], au revoir, \U$pren\E."."\n\n";
     print $phr ;