# Machine à Ecrire Perl (1) 


while(<STDIN>) { # tant que l'utilisateur écrit des choses
print $_; 	# imprime les lignes
}