Anyway to builk delete tags

[Lynch, Harold]

        We've had a repository running for quite a while now (3.5 years) and
the list of tags is quite long. Most of the tags don't have any use any
more and we have found that the output of status commands etc. is quite
confiusing. So I have a list of about 1500 tags that the users would like 
removed. Now I ran a couple of tests and found that a cvs rtag -d <> command
takes between 5 and 10 minutes on this repository. 

        Has anyone come across a way of doing a "bulk" deletion of tags,
maybe a perl script that walks the tree in the repository ?

        Also the repository has both text and binary files checked into it.

Harold Lynch