#!/usr/local/bin/perl
use Tk;
# Main Window
$mw = new MainWindow;

my $var;
my $opt = $mw -> Optionmenu(-options => [qw(opt1 opt2 opt3 opt4 dinner1 dinner2 dinner3 dinner4 desert1 desert2 desert3 desert4 desert5 )],
        -variable => \$var,
        )->pack;

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

MainLoop;