use strict;
use locale;

print "Entrez un nom commun masculin singulier : ";
my $nom = <STDIN>;
chomp $nom;
print "Les flexions de \"", $nom, "\" sont :\nun ", 
    $nom, "\ndes ", $nom, "s\n";