counter = getter/setter in einem, realisiert via ternärem Operator.
Das ist so leserlich, wie es in etwa von u.a. Randal L. Schwartz in Einführung in Perl-Objekte, Referenzen & Module empfohlen wird - shiften kostet Resourcen.

Dann wechsel mal die Tk-Doku :-)
http://www.perltk.de/tk_widgets/timer.html - repeat()
tktinit() eine Abkürzung für MainWindow->new();