#!/usr/bin/perl -w use User::pwent; $pw = getpwnam('daemon') or die "No daemon user"; foreach $username (@ARGV) { $pw = getpwnam($username); print "name = ", $pw->name(), "\n"; print "uid = ", $pw->uid(), "\n"; print "gcos = ", $pw->gecos(), "\n"; print "dir = ", $pw->dir(), "\n"; print "shell = ", $pw->shell(), "\n\n"; }