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