use strict;
use warnings;
use Tk;
 
# Das mw erzeugen
my $mw = MainWindow->new();
 
my $status = '';
my $label = $mw->Label(-relief => 'ridge',
                       -width => 10,
                       -textvariable => \$status);
$label->pack(-pady => 5);
 
#Dropdown Menu erzeugen
my $option = $mw->Optionmenu(-background => 'yellow', 
                      				-activebackground => 'grey', 
 				                      -variable => \$status);
$option->pack(-padx => 10, -pady => 5);
 
#Optionen dem Dropdownmenu hinzufügen
$option->addOptions([Eins => 1], [Zwei => 2], [Drei => 3],
                    [Vier => 4], ['Ganz viele' => 5]);
 
#Exit-Button erstellen
my $button = $mw->Button(-text => 'Aufhören!', 
                          -command => sub { exit; });
$button->pack();
 
MainLoop();