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

my $mw = MainWindow->new();
$mw->fontCreate('big', -size => 16 );

my $tx = $mw->Text(-bg=> 'white', -font=>'big',
                   -width => 25)->pack();

tie *STDOUT, 'Tk::Text', $tx;

$mw->repeat(1000, \&tick);

MainLoop;

my $count;

sub tick {
 ++$count;
 print "$count\n";
}