#!/usr/bin/perl
# w3.15.pl:  Demonstrates @ARGV
# Usage: w3.15.pl zero one two three four

$n=0;
foreach (@ARGV){
 print  "\$ARGV[$n] is \"$_\"\n";
 $n++;
}

print "$n arguments in all.\n";


