#!/usr/bin/perl -w

use strict ;
use Getopt::Long ;
use Data::Dumper ;

my %define ;

GetOptions (
	"define=s" => \%define
) ;

print Dumper( \%define ) ;