Lectura desde un fichero

Una vez que un fichero esta abierto para lectura, podemos leer las líneas de la misma forma que lo hacemos desde STDIN usando el operador de lectura <FILEHANDLE>. Veamos un ejemplo:

my $user = shift;
open PASSWD, "/etc/passwd" or die "Se esperaba un sistema Unix. $!";
while (<PASSWD>) {
  chomp;
  if (/^$user:/) { print "$_\n"; }
}