$opt = $w->Optionmenu(
                               -options => REFERENCE_to_OPTIONLIST,
                               -command => CALLBACK,
                               -variable => SCALAR_REF,
                               );