$box->insert('end', &text); # Keine Ref nötig..
## ^ vor den mainloop!!

sub text {
open(DATEI,"<elke.txt")
or die "Datei kann nicht geladen werden";


undef $/;
my $text=<DATEI>;
close (DATEI);
return $text;

}