in reply to "20q" in perl?

duh! duh! duh!

(it even has a simple 'doctor' build in!)