### print_args.pl ###
use strict;

for (my $i=0; $i<=$#ARGV; $i++)
{
	print STDERR "Arg $i - $ARGV[$i]\n";
}