#pm.pl
print "Arg $_: $ARGV[$_]\n" for 0 .. $#ARGV;