Auswahlmöglichkeiten: Radiobutton, Checkbox und Listbox
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
#
# Hauptfenster:
#
my $mw = MainWindow->new();
$mw->title('Eiswähler 0.2');
my $fo = $mw->Frame()->pack(-side   => 'top',
                            -expand => 1,
                            -fill   => 'both',
                           );