opendir(DIR,"/home/user/ptest");
while($dir=readdir(DIR))
{
  if(($dir ne ".")&&($dir ne ".."))
  {
    if(-d "/home/user/ptest/$dir")
    {
      ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,              $atime,$mtime,$ctime,$blksize,$blocks)=stat("/home/user/ptest/".$dir);
      print "FILE: ".$dir." Time: $mtime\n";
    }
  }
}