Here's the script. You can also download it from <http://www.theapotek.com/teknotes/XJanitor.pl.sit>

#!/usr/bin/perl -w
use strict;

# Janitor script. Run through root cron on a daily or hourly basis. The script
# will check for daily, monthly, weekly maintenance, and, if necessary
# will perform the maintenance needed.
# By Kristofer Widholm, <http://www.theapotek.com>
# A script like this should always be in the public domain 'cause anybody
# can do it. Accordlingly, so is this script.
# SCRIPT VARIABLES
my($summary) = "";
my($sinceMod,$i);
my($done) = 0;
my(@fileinfo,@tests);
# END SCRIPT VARIABLES

# YOUR CONFIGURATION VARIABLES
my($admin) = "admin"; # Local mail address (usually username) of sysadmin
my($hostname) = `hostname`; # Or whatever you call your machine
my($sleep) = 60; # How many seconds should the script pause between each executed script?

# Check modified time on out files
# Pass the name of the test, the logfile, the script name,
# and the interval at which the script should run, expressed in seconds
# Array of: test name -Location of log -Script -Interval
$tests[0] = (["daily","/var/log/daily.out","/etc/daily",86400]);#1 day
$tests[1] = (["weekly","/var/log/weekly.out","/etc/weekly",604800]);#7 days
$tests[2] = (["monthly","/var/log/monthly.out","/etc/monthly",2419200]);#28 days
# Add other scripts you want to run here:
$tests[3] = (["quarterly","/var/log/quarterly.out","/Users/admin/Library/Scripts/quarterly",7889400]);#91.3 days
#$tests[4] = (["test","/Users/kit/Desktop/test.out","/Users/kit/Desktop/test",60]);
# END YOUR CONFIGURATION

for ($i = 0; $i <= $#tests; $i++) {
@fileinfo = stat($tests[$i][1]); #[$i][1] is the output file
$sinceMod = time() - $fileinfo[9]; #Last modified is index 9 in file info array returned by stat
if ( $sinceMod > ($tests[$i][3]) ) { #index [$i][3] is the running interval
if (system("$tests[$i][2] >& $tests[$i][1]") > -1) {
$summary .= ($i+1) . "> XJanitor ran the $tests[$i][0] script:\n";
$summary .= `cat $tests[$i][1]`;
$summary .= "\n\n";
$done++;
if ($i < $#tests) { sleep($sleep); } # Sleep between scripts, but not after last one.
}
else {
$summary .= ($i+1) . "> ERROR: XJanitor could not run the $tests[$i][0] script!!!\n";
}
}
else {
$summary .= ($i+1) . "> XJanitor did not need to run the $tests[$i][0] script.\n";
}
}

if ($done > 0) { # Don't bother me with mail if scripts weren't run
chop($hostname);
open(MAIL,"| mail -s \"XJanitor output ($hostname)\" $admin");
print MAIL `date` . "\n";
print MAIL "$summary";
close(MAIL);
}
exit;