#! /usr/bin/perl -w

# A simple count program

# get args
($start, $end, $step) = @ARGV;

# supply defaults
$start=1 if ! defined($start);
$end=10 if ! defined($end);
$step=1 if ! defined($step);

# do counting
for ($i=$start; $i<=$end; $i+=$step) {
	print "$i\n";
}