Perl mit Tk Textdatei einbinden

[Ingo]

Hallo,
wer kann mir helfen?
Ich über unter dem Tk Module in einer Listbox eine Text Datei einzubinden.
Hier das Script
Wie lautet ->insert

Danke im voraus

#----------------------Script----------------------------------------

#!/usr/bin/perl -w

use strict;

use Tk;

my $haupt = new MainWindow;
$haupt->Label(-text=> "Datei wird eingelesen")->pack();
my $box=$haupt->Listbox();
$box->pack();

MainLoop();

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

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

$box->insert('end',"".&text);
}

[Norbert Kölln]

Moin, moin!

Der Insert-Befehl müßte eigentlich so aussehen:
$box->insert("end",$text);

Alles klar?

Norbert