#!/pro/bin/perl

# A weird clock where the hour hand uses a 24-hour scale
use Tk;
use Tk::Clock;

my $m = MainWindow->new;
my $c = $m->Clock->pack (-expand => 1, -fill => "both");
$c->config (
    anaScale  => 250,
    ana24hour => 1,
    tickFreq  => 2.5,
    )->config (anaScale => 0);

MainLoop;