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