#!/usr/bin/perl -w
use strict;
use Tk;
my $var;
$var = "Aktuelle Uhrzeit: " . localtime(time);
my $win = MainWindow->new(-background => "#000000");
my $text = $win->Label(
               
        -textvariable => \$var,
               
        -background => "#000000",
               
        -foreground => "#FFFFFF"
               
       );
$win->repeat(1000, sub { $var = "Aktuelle Uhrzeit: " . localtime(time) });
$text->pack();
MainLoop;