Expliquer et tester le script initial

• #!/usr/bin/perl -w 
  #affichage de l'indication "saisir une nouvelle ligne"
  print "Saisir une nouvelle ligne : "; 
  #tant que les instructions associées à la variable viennent du clavier on exécute le bloc
  while ($ligne = <>) { 
  	#on ajoute à la suite du contenu de $texte le contenu de $ligne
  	$texte .= $ligne;
  } 
  #on affiche le texte saisi à la suite de "vous avez saisi..." séparés par des sauts à la ligne
  print "Vous avez saisi le texte \n $texte \n";