#!/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";  
}  
