#!/lusr/bin/perl
use warnings;
use strict;

die "$0 requires an argument.\n" if $#ARGV < 0;

print "@ARGV\n";
print "$ARGV[0]\n";
print "$ARGV[1]\n";
print "There are ", $#ARGV + 1, " arguments.\n";
print "$ARGV[$#ARGV] is the last one.\n";