#!/usr/bin/perl 

use strict;
use warnings;
use Tk;
use Tk::Trace;
use Tk::Gauge;

my $mw = MainWindow->new;
$mw->geometry("500x600"); #pretty fancy background for the gauge
$mw->title("Hello World!!!"); #I'm learning...


my($hour, $minute);

$hour = 3;
$minute = 45;

my $clock = $mw->Gauge(
     -extent               => -359.9, # 360 loses outline
     -from                 => 0,
     -huboutline           => 'black',
     -majortickinterval    => 5,
     -majorticklabelscale  => 12.0 / 60.0,
     -majorticklabelskip   => [ 0 ],
     -minortickinterval    => 1,
     -needles              => [
                               {
                                   -radius     => 100,
                                   -variable   => \$minute,
                               },
                               {
                                  -radius     => 60,
                                  -variable   => \$hour,
                               },
                              ] ,
     -start                => 90,
     -to                   => 60,
)->pack;

$hour = 3;
$minute = 45;
$hour = 4;
$minute = 5; #nothing happening ... sad

MainLoop;