#!/usr/bin/perl -w
# remd: essai pour le module FrDate de tout les format d'affichage. alain Adelmar
use FrDate;

$f= "format_mod_affichage.log";
open F, ">$f" or die "Ouverture de $f impossible $!";
for $i(0..12) {
    $mod_affichage = $i;
    $fd = maintenant($mod_affichage);
    print F "maintenant c\'est $fd\n";
}

close F || die "Fermeture de $f impossible $!";

END;