Expliquer le fonctionnement de la boucle de lecture : quel résultat renvoie l'affectation

$ligne=<F>

#!/usr/bin/perl -w 
# ouverture en lecture du fichier des comptes utilisateurs 
open F, "/etc/passwd"; 
# on aurait pu utiliser des variables : 
# $fichier="/etc/passwd"; 
open F, $fichier; 
while ($ligne = <F>) { 
print "ligne $. : $ligne"; } 
close F;