Help for this page

Select Code to Download

Select or download this

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