How to delete old directories with perl script?

--_000_EB070C90E3B48C4F97C7AC252BACE9E71B45CDF08CNAEXMSGC125re_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

I have directory names in the format of "yyyy-mm-dd_hh-mm-ss". Sometimes I
=
want to delete all the non-empty directories that are from last week or
ear=
lier. Other times I want to delete all the directories that are over a
week=
 old.

Is there a script out there already that does this?

Assuming the answer is no, I started writing a script. Unfortunately, the
f=
ollowing does not produce an error and does not work.

$ perl -MFile::Tasks -e
'(File::Tasks->new)->remove_dir("2008-03-11_15-42-5=
8/");

So how would you enumerate the directories, find the ones that are old
(acc=
ording to the above criteria) and delete them and their contents? What
pack=
ages would you use?
Thanks,
Siegfried





--_000_EB070C90E3B48C4F97C7AC252BACE9E71B45CDF08CNAEXMSGC125re_--