sub defineDBFieldsOptionMenu {
   my ($top, $refbindSelectedValue, $refbindSelectedTextlabel, $optionSet) = @_;

   my $opt = $top->Optionmenu(
       -options => $optionSet,
       -command => sub {
           print "got: ", shift, "\n", "val: $bindSelectedValue\n";
           print "hashval: " . $obj->{'entryFrame'}->{'feld'}->{'bindSelectedValue'} . "\n";
       },
       -variable => $refbindSelectedValue,
       -textvariable => $refbindSelectedTextlabel
   );
   
   return $opt;
} # /defineDBFieldsOptionMenu


defineDBFieldsOptionMenu ($top, \$value, \$label, $options);