Genauso, spitze!
Jetzt hätte ich doch nur noch ein kleines Problem!!! Sorry!
Ich versuche mit dem selben Script in eine Textdatei einen Text auszugeben also einen Eintrag machen. Der wiederum wird der Listbox ausgeben wird. Mit:

open (HANDLE, "<nick.txt")
or die "Datei kann nicht ge\94ffnet werden!\";

open (HANDLE, ">nick.txt")
or die "Datei kann nicht ge\94ffnet werden!\";

undef $/:
my $text = <DATEI>;
print "\n\n$text\n";

## klappt das einfach nicht##

das ganze passt nicht mit dem TK-Script zusammen.

Gruss Udo