Lecture sur l'entrée standard

<STDIN> $ligne=<STDIN> (le plus souvent abrégé en $ligne=<>) stipule de lire une ligne sur l'entrée standard jusqu'au caractère de validation \n, et l'affecte à la variable $ligne, y compris \n :

$ligne = <STDIN>; 
chomp($ligne); 
print "La ligne saisie est : $ligne " ;

En cas d'absence d'affectation explicite : <STDIN> (ou <>), il y a affection implicite de la ligne entrée à la variable $_ .

print "Pour sortir de la boucle Ctrl-D\n"; 
$i=0 ; 
# compteur de boucle 
while (<>){ chomp; 
$i++ ; 
print "La ligne $i est : $_ \n" ; }