#!/usr/bin/perl -w 
  
foreach $username (@ARGV) {
    ($name, $passwd, $uid,$gid, $quota, $comment,$gcos, $dir, $shell) = getpwnam($username);
  
    print "name    = $name\n";  
    print "passwd  = $passwd\n";  
    print "uid     = $uid\n";  
    print "gid     = $gid\n";  
    print "quota   = $quota\n";  
    print "comment = $comment\n";  
    print "gcos    = $gcos\n";  
    print "dir     = $dir\n";  
    print "shell   = $shell\n\n";  
}