While statement and scalar control value
#!/usr/bin/perl -w use strict; my $countdown = 5; while ($countdown > 0) { print "Counting down: $countdown\n"; $countdown--; }