#!/usr/bin/perl -w

if (! -e "dates.txt")
{
    open FICHIER,">dates.txt";
    print FICHIER "12/4/2005\n";
    close FICHIER;
}
else
{
    open FICHIER,"dates.txt";
    @dates = <FICHIER>;
    close FICHIER;

    unshift @dates,"12/4/2005\n";

    open FICHIER,">dates.txt";
    print FICHIER foreach (@dates);
    close FICHIER;
}