#!/usr/bin/perl -w

use strict;

for my $q ( 0 .. $#ARGV ) {
    print STDERR "# $q=$ARGV[$q]\n";
}
