sub read_long_dir{
  my($d)=$_;
  my(@r);
  my $stats;

  my@r1=read_dir($d);
  foreach my $file(@r1){
    my @stats=stat("$d/$file");
    my($mode,$uid,$gid,$size,$atime)=@stats[2,4,5,7,8];
    $uid=getpwuid($uid);
    $gid=getgrgid($gid);
    $atime=scalar localtime($atime);
    $mode=sprintf"%04o",$mode & 07777;
    $stats="$mode $uid $gid $size $atime $file";
    push @r,$stats;
  }
  return @r;
}