You're basically need look at Tk::after to run a callback and update the clock. Other than that, a simple one would just be a Tk::Label that'll be changed every time the callback's called.

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";