#!/usr/local/bin/perl
# Jaime Prilusky 2005

  my $num = $ARGV[0] ||  1; # count from 1 if none provided
  my $end = $ARGV[1] || 10; # count up to 10 if none provided
  my $steps = 0;

  print "Received number $num, will count up to $end\n";

  for ($n = $num; $n <= $end; $n++) {
    print "now $n\n";
    $steps++;
  } 

  print "Done in $steps steps.\n";