Select Code to Download

use Unix::PasswdFile;

my $pw = Unix::PasswdFile->new('/etc/passwd') 
  or die 'Could not open /etc/passwd';

my %users = map { $_ => [$ps->user($_)] } $pw->users;