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

my $var  = '';
my $w = new MainWindow;
$w->Entry( -textvariable => \$var )->pack;
$w->repeat(1000, [ \&print_var, \$var ] );

MainLoop;

sub print_var
{
	my $var = shift;
	print scalar(localtime)," >$$var\n";
}