#!/usr/local/bin/perl

opendir(DIR, ".");
@files = grep(/\.dat$/, readdir(DIR));
closedir(DIR);

foreach(@files) {
  my($age) = -M "../auth/$_";
  if ($age>.5) { unlink("../auth/$_"); }
}
