#!/usr/local/bin/perl -w
#
# describes (C) 1997-2000 Stuart Caie
# makes a pretty print of people you look up in the password file
# this is distributed under the terms of the GNU public license version 2
#
use strict;

foreach (@ARGV) {
  my ($l,$p,$u,$g,$m,$n,$d,$h,$s) = getpwnam $_; print <<DONE if $l;
Login......: $l (uid/gid = $u/$g)
Homedir....: $h
Shell......: $s
Description: $d
DONE
}