#!/usr/bin/perl -w

use strict;

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