DB purge script?

Hi all,

I think I remember hearing about a perl script to purge deleted
tickets from the RT database, but can’t find it anywhere on the
website. I thought I’d find it in the contrib/3.0 directory (I’m
using RT 3.0.11) but no luck. Does such a script exist?