#!/usr/bin/perl
use warnings;
use strict;

use Tk;

my $mw = new MainWindow;

$mw->fontCreate('big',
   -family=>'Arial',
  -weight=>'bold',
  -size=>int(-24*24/14));

my $ctime = time;

my $lab = $mw->Label(
            -background => 'lightgreen',
            -font =>'big',
            -textvariable=> \$ctime)->pack();

$mw->repeat(500, sub{ $ctime = time });

MainLoop;
__END__

#Gtk2 version by McLean of the gtk2-perl maillist
######################################################
#!/usr/bin/perl
use strict;
use Gtk2 -init;
use Glib qw(TRUE FALSE);

my $window = Gtk2::Window->new;
$window->signal_connect(delete_event => sub { Gtk2->main_quit; });

my $label = Gtk2::Label->new('' . time());
my $font = Gtk2::Pango::FontDescription->from_string("Sans Bold 48");
$label->modify_font($font);

Glib::Timeout->add(250, sub { $label->set_text('' . time()); TRUE; });

$window->add($label);

$window->show_all;

Gtk2->main;
__END__