ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch4/getpwent

Text File | 1992-10-18 | 67 b | 4 lines

while (($name, $passwd, $uid) = getpwent) {
    $uid{$name} = $uid;
}