#!/usr/bin/perl -w
use Tk;
use Tk::Clock;

my $MW=MainWindow->new();


### --- Prevents Main Window Resizing
$MW->bind('<Configure>' => sub{
        my $xe = $MW->XEvent;
        $MW->maxsize($xe->w, $xe->h);
        $MW->minsize($xe->w, $xe->h);
});



$MW->title("My Analog Clock");

$clock = $MW->Clock();

 $clock->config( 
 useDigital => 0, 
 useAnalog  => 1, 
 anaScale  => 880, 
 handColor => 'Green4', 
 secsColor => 'Red2', 
 tickColor => 'Black', 
 );

$clock->pack();

 MainLoop();