#!/usr/bin/tclsh
package require Tk
package require Img

# GUI erzeugen und auf den Bildschirm bringen
set uhrzeit [clock format [clock seconds] -format "%H:%M:%S"]
label .l -text $uhrzeit -font {Palatino 24 bold} -bg white
pack .l
wm geometry . +100+100
update idletasks

# Bildschirmfoto schießen und speichern
set image [image create photo -format window -data .l]
$image write -format png "uhrzeit.png"