my $var;
$w->Optionmenu(
    ...
    -variable => \$var,
);