while($loopnum <10)
{
   $loc=(telldir(backups));
   $newloc=seekdir(backups,($loc++));
   $filename=readdir(backups);
   ($size,$mtime)=stat($filename);
   $convtime=localtime($mtime);
   print($filename, " is " ,$size, " bytes long, last   modified on ",$mtime," ",$convtime,"\n");
   $loopnum++;
}