or download this
bronto@marmotta:~/B-Lab/threads$ ./gui.pl
Resetting text box state
...
Tk::Error: Can't call method "Call" on an undefined value at /usr/lib/
+perl5/Tk/After.pm line 83.
[once,[{},after#10,idle,once,[ConfigChanged,{},{}]]]
("after" script)