format STDOUT =
Login:   @<<<<<<<<<<<<<<  Full Name:      @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	$ARGV[0], 		$gcos	
Shell:   @<<<<<<<<<<<<<<  Home Directory: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	$shell,				$dir
.
close(STDERR);
print "Finger information for @ARGV:\n";
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) =
	getpwnam($ARGV[0]);
if(-e "$dir/.nofinger"){
	print "Sorry, $user does not allow finger requests.\n";
}
$plan = `cat $dir/.plan`;
$project = `cat $dir/.project`;
$pgp = `cat $dir/.pgpkey`;
write;
if($plan){
	print "\nPlan:\n $plan\n";
}
if($project){
	print "\nProject:\n $project\n";
}
if($pgp){
	print "\nPublic PGP Key:\n $pgp\n";
}
