unshift(@ARGV,$0);
for my $n (0..$#ARGV) { print "$n:$ARGV[$n]:\n" }