while Perl $n = 0; while ($n < 10) { print $n++, "\n"; # 0 - 9 } print $n, "\n\n"; # 10 $n = 0; print $n++, "\n" while ($n < 10); # 0 - 9 print $n, "\n\n"; # 10 $n = 0; until ($n >= 10) { print $n++, "\n" # 0 - 9 } print $n, "\n\n"; # 10 $…