#!/usr/bin/perl -w
#On affiche "Saisir une nouvelle ligne : "
print "Saisir une nouvelle ligne : ";
#Tant qu'on peut associer des caractères venant de l'entrée standard (Le clavier) à la variable $ligne, on exécute le bloc d'instructions
while ($ligne = <>) {
	#On ajoute, à la suite du contenu de la variable $texte, le contenu de la variable $ligne
	$texte .= $ligne;
}
#On affiche "Vous avez saisi le texte ", suivi d'un retour à la ligne, suivi du contenu de la variable $texte, et suivi d'un retour à la ligne
print "Vous avez saisi le texte \n $texte \n";