Is there any quick way to delete a whole bunch of subdirectories that are older than a week on a weekly basis?

Shell script or Perl?

Qingbo