#!/usr/bin/perl -w

use strict;

print "Counting down: ", (6 .. 1), "\n";