Language Basics Perl

#!/usr/bin/perl -w
# argv2.pl
use strict;
print "program arguments:\n";
my $i = 0;
while ($i <= $#ARGV) {
    print "argument $i: $ARGV[$i]\n";
    $i++;
}