#!/usr/bin/perl -w

die "Fichier dates.txt vide" if (-z "dates.txt");
open FICHIER,"dates.txt" || die "Fichier dates.txt inexistant";
@dates = <FICHIER>;
close FICHIER;

chomp @dates;


($jour,$mois,$annee) = split /\//,shift(@dates);

foreach (@dates)
{
    @date = split /\//;
    if ( $date[2] > $annee ||
	 ($date[2] == $annee && $date[1] > $mois) ||
	 ($date[2] == $annee && $date[1] == $mois && $date[0]>$jour) )
    {
	($jour,$mois,$annee) = @date;
    }
}


print "La date la plus recente est : $jour/$mois/$annee\n";