Hmmm, it's a little old, but Crypt::Cracklib appears to do what you want (dollars to donuts, as I say when I feel like annoying people, though, one needs cracklib installed to use it, since it's billed as an 'interface to' cracklib).

Philosophy can be made out of anything. Or less -- Jerry A. Fodor