Never seen it in perl, but I'll bet if you google for a vbscript, one exists. If you do decide to implement it in perl, make sure you search every domain controller, otherwise you won't get accurate results.

-beernuts