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