use strict;
use locale;

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

print "Le pluriel de \"", $nom, "\" est : ", pluriel( $nom ), "\n";

sub pluriel {
    my $singulier = shift @_;
    my $plur = $singulier . "s";
    return $plur;
}