#!/usr/bin/perl -w
print "Quel est votre nom?\n";
$nom=<STDIN>;
#suppression du caractre retour chariot:
chomp($nom);
$long=length($nom);
print "\nSalut $nom! Votre nom a une longueur de $long caractres\n";


