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