Mega Code Archive

 
Categories / Perl / Statement
 

Looping While

#!/usr/bin/perl use warnings; use strict; my $countdown = 5; while ($countdown > 0) {     print "Counting down: $countdown\n";     $countdown--; }