From the very first perl golf tournament:

perl -pe '11..exit'
(11 for 10,6 for 5, etc)

Attributable to many.

And of course, this does the exact opposite of what the OP wanted! Teach me to read the question!

edit: forgot -e switch, added caveat (thanks jmcnamara)