hm ..... die Option geometry gibt es anscheinend nicht. Oder ich verwende sie falsch.
Fehler: Tk::Error: Can't set -geometry to `60x50' for Tk::Toplevel=HASH(0x848144c): Bad option `-geometry' at /usr/lib/perl5/Tk/Configure.pm line 46.

ich definiere es so: $top=$mw->Toplevel(-title=>"Setup",-geometry=>'60x50');