use Tk;

my $mw = new Tk::MainWindow;
my $frame = $mw->Frame->pack;
$mw->update();

while () {
    $frame->Label(' foo? ');
    $mw->update();
    sleep 5();
}
MainLoop;
[download]