#!/usr/bin/perl

use strict;
use warnings 'all';

my ($name, $uid, $passwd);  
print "$uid: $name\n" while +($name, $passwd, $uid) = getpwent;

__END__
[download]

Abigail