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