#!perl

use 5.12.0;
use warnings;

use Tk;
use Tk::Optionmenu;

my $mw = MainWindow->new();

my $om = $mw->Optionmenu(
    -options => [qw{Zero One Two Three}],
)->pack();

my $state = 0;
my @states = qw{normal disabled};

$mw->Button(-text => q{Toggle State}, -command => sub {
    $state ^= 1;
    $om->configure(-state => $states[$state]);
})->pack();

$mw->Button(-text => q{Exit}, -command => sub { exit })->pack();

MainLoop;