"On systems that support shadow passwords, you will
      have to be the super user to retrieve the actual
      password"

##</code><code>##

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