#!/usr/bin/perl

use strict;

# what's with this $0 ??????????

print "The program was invoked with $0\n";

#what's with this ARGV ????????

my $i;

for($i=0; $i<=$#ARGV; $i++)
{
	print "i is $i   ARGV is $ARGV[$i]\n";
}