perl -e 'my $n = 10; (1)? $n++ : $n--; print qq~This is $n\n~;'