perl -e "my $c = 10; print qq!$c\n! while $c --> 0;"

##</code><code>##

perl -e "my $c = 10; print qq!$c\n! while $c ++> 0 && $c < 100;"