Statement Perl

#!/usr/bin/perl -w
use strict;
print "Counting down: ", (6 .. 1), "\n";