Arg, da hätt ich auch drauf kommen können, naja.
Stimmt, "warn $@ if $@" stand noch irgendwie auf der todo-Liste im Hinterkopf, und das ich das strict in des kleineren Testskripts weggelassen hab war einfach Tippfaulheit.

Ge->pack()ed werden die widgets, hatte ich nur vergessen zu pasten.
Danke vielmals.