sub hochtag {
    $table->remove($hochlabel);
    my $hochzeit = date "2005-12-2 11:30:00"; # aus perlmodul?
    my $date = now; # == time?
    my $sekunden = $date - $hochzeit;

    my $tage = int( $sekunden/86400 );
    $sekunden -= $tage*86400;

    my $stunden = int( $sekunden/3600 );
    $sekunden -= $stunden*3600;

    my $minuten = int( $sekunden/60 );
    $sekunden -= $minuten*60;

    # Tausenderpunkte
    $tage=~s/(?<=\d)(?=(?:\d{3})+$)/./cg;

    # Ausgebe erzeugen
    my $hochtag = sprintf('%s %2u:%2u.%2u',$tage,$stunden,$minuten,$sekunden);

    $hochlabel->set_markup ("<span font-family=\"URW Chancery L\" color=\"#FF0000\" font_desc=\"40\">$hochtag</span>");
    $table->attach_defaults($hochlabel, 0, 1, 0, 4);
    $hochlabel->show;
}

# einmal pro Sekunde ausführen
Glib::Timeout->add (1000,\&hochtag);