ExpireDir is a Perl script for eliminating the files from a directory if the procedure has violated a definite maximum. It will take away the oldest files in the directory configuration first.