#!/pro/bin/perl use Tk; use Tk::Clock; my $m = MainWindow->new; my $c = $m->Clock (-background => "Black")->pack (-expand => 1, -fill => "both"); $c->config ( useDigital => 0, useAnalog => 1, handColor => "White", secsColor => "Red", tickColor => "White", tickFreq => 1, tickDiff => 1, handCenter => 1, countDown => time, anaScale => 500, ); $c->config (anaScale => 0); # Allow resize MainLoop;