my(@files, $file);
  opendir(DATADIR, "datadir");
  @files = grep(/[0-9].html/,readdir(DATADIR));
  closedir(DATADIR);
  foreach $file (@files)
   {
    if (-M "data/$file" > 30)
     {
      unlink("data/$file");
     }
   }