Bei mir (Linux , Perl v5.8.5 built for i586-linux-thread-multi, Tcl/Tk 8.4) tut das Skript nie das, was es soll, und produziert stets irgendwelche anderen Fehlermeldungen des X-Servers, allerdings nicht periodisch, sondern nur beim Start.