#!/usr/bin/perl

# counts, one number per line
# "cnt 5" counts from 1 to 5
# "cnt 3 5" counts from 3 to 5

if(scalar(@ARGV)==1) {
 $a = 1; $b = $ARGV[0];
} elsif(scalar(@ARGV)==2) {
 $a = $ARGV[0]; $b = $ARGV[1];
} else {
  die "I need 1 or 2 arguments to count";
}
for $j ($a..$b) { print "$j\n";}