Rolling the archive over?

I did go through the FAQ and this is not covered, hope I didn't miss it in
the other docs:

I'd like to delete messages that are more than (say) two weeks old from the
archive. Does anybody have a script for this?

--Ken
  type2.com webmaster  "If stupidity hurt like a toothache people
                        might do something about it."  --Greg Swann