use strict;
use locale;

print "Entrez un nom singulier : ";
my $nom = <STDIN>;
chomp $nom ;

print "Quel est son genre (f ou m) ? ";
my $genre = <STDIN>;
chomp $genre;

my $article;
if ( $genre eq "f" ) {
    $article = "une";
}
elsif ( $genre eq "m" ) {
    $article = "un";
}
else {
    die "Veuillez entrer f ou m pour le genre du nom !\n";
}

print "Les flexions de \"", $nom, "\" sont :\n", $article, " ", 
    $nom, "\n", "des ", $nom,"s\n";