Statement Perl

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