while and until loop
#!C:/perl/bin $loopcounter = 1; while ($loopcounter < 10) { print "loop count = $loopcounter "; $loopcounter++ } $loopcounter = 1; print "\n\nThe Until Loop:\n"; until ($loopcounter > 10) { print "loop count = $loopcounter "; $loopcounter++ }