my $cmd=`grep $uid /etc/passwd`;
   my ($name,$rest)=split /:/,$cmd;