# Vor den Mainloop
&text;         # Sub Text starten
# dannach, oder egal;)

sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";
while(<DATEI>)      # Datei zeilenweise lesen
{
  chomp $_;           #letzes Zeichen, falls Steuerzeichen, entfernen
  $box->insert("end", $_); # Ab damit ans ende der Box
}
close (DATEI);

}