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