[done] Perl::Tk autorefresh?!

[keksinat0r]

öhm joa...

#!/usr/bin/perl
use strict;
use Tk;

my $MW = new MainWindow;
my $L = $MW -> Label( -text => time ) -> pack;
&MainLoop;

Simpler Code, simple Problemstellung, und wahrscheinlich auch simple Lösung, aber der Keks kommt einfach net drauf, wie er hier das Label dazu bekommt die Zeit ständig zu aktualisieren...

Wenn ich darunter einfach einn configure mit entsprechenden Parametern in eine While-Schleife packe, erreicht das Script ja nie "MainLoop", und somit wird kein Fenster erstellt...

Dann hab ich versucht mittels bind irgendwas zu basteln - funktioniert auch wunderbar - , allerdings brauche ich dazu ja immer ein Event wie zB einen Tastendruck...

Gibts ne Möglichkeit ein "Auto-Refresh" einzubauen?
Dass das Label zB jede Sekunde die Zeit aktuallisiert, ohne dass der Benutzer n Finger krumm amchen muss ^^ ?

MFG - Keks


EDIT: habs grad gefunden:
http://209.85.135.104/search?q=cach...ter+Tk::after&hl=en&ct=clnk&cd=1&client=opera