$ perl -MDDS -le" my %options=(); use Getopt::Std; getopt(q!bg!,\%options); Dump(\%options) " -- -b o -g i
$HASH1 = {
           b => 'o',
           g => 'i'
         };