#!/user/bin/perl -w

use strict;
use Getopt::Long;

my $key;
my $value;
my %options;


GetOptions (
            \%options,
            'names:s@',
            'address:s@');


while ( ($key, $value) = each %options) {
    print "$key = $value\n";
}