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

$| = 1;

my $mw = MainWindow->new;
my $text = $mw->Text->pack;

my $repeater = $mw->repeat(1000, \&test_insert);

MainLoop;

sub test_insert{
  
  $text->insert('end', time."\n");

}