Hi,
I want to parse a command line option like -DMyMacro=1. Here -D is the option, MyMacro is the string, 1 is the value. In my command line option, there wont be any space between -D and MyMacro=1.
I wrote below program, it works for -D MyMacro=1 but not for -DMyMacro=1

Can any one please suggest/correct my program to acheive my output?

use Getopt::Long;
our %macro = ();
Getopt::Long::Configure ("bundling");
Getopt::Long::Configure ("bundling_override");
GetOptions("I=s"=>\%macro);
print "$_ : $macro{$_}\n" foreach (keys(%macro));