perl -MTk -e "$w=tkinit;$w->optionAdd('*font','Courier 20 bold');$w->Label(-textvariable=>\$n,-background=>'lavender')->pack;$w->repeat(100,sub{$n=scalar localtime time});MainLoop"