($name, $passwd, $uid, $gid, $quota, 
	$comment, $gcos, $dir, $shell) = getpwuid $<; 
$gcos =~ s/ /\\ /g;
print $gcos;
