# La fin de la saisie est provoquée 
#par l'envoi du caractère Ctrl-d (eof) 
#sur une ligne vide -> PAS AVEC WINDOWS
#!/usr/bin/perl -w
print " Pour vous arreter, tapez 'fin'\n ";
print "Saisir une nouvelle ligne : ";
while ($ligne = <>) {
 chomp($ligne);
 if ($ligne eq "fin") { 
	print "Vous avez saisi le texte \n$texte \n";
	exit;
	} # Si on saisit "fin", ça s'arrête
 else { $texte .="$ligne\n"; }
}
# L'affichage est identique à la saisie 
#car on stocke tout ce qu'on tape au clavier dans une variable : 
#$texte que l'on écrit à la fin.