Datei mit TK-Modul einlesen

[thomas]

Hallo!
Wer kann mir sagen, wie ich in nachfolgendem Skript eine Datei einlesen kann. Es soll der Name der Datei unter "Ausgangsdatei" eingegeben werden und dann nach anklicken des Button "einlesen" die entsprechende Datei eingelesen werden. Funzt irgendwie nicht so, wie ich mir das gedacht habe:

use strict;
use Tk;
my $haupt = new MainWindow;

my $links = $haupt->Frame();
$links->Label(-text => "Ausgangsdatei:")->pack();
my $ausgang=$links->Entry();
$ausgang->pack();

my $schalter=$links->Button(-text => "einlesen",
              -command => &einlesen
              )->pack();

$links->Label(-text => "Ausgabedatei:")->pack();
my $ausgabe=$links->Entry();
$ausgabe->pack();

my $schalter1=$links->Button(-text => "schreiben",
              -command => &schreiben
              )->pack();

my $schalter2=$links->Button(-text => "beenden",
               -command => [$haupt=>'destroy']
               )->pack(-pady => "40");

my $rechts = $haupt->Frame();
$rechts->Label(-text => "Meldung:")->pack();
my $meldung = $rechts -> Listbox();
$meldung -> pack();

$links->pack(-side=>"left");
$rechts->pack(-side => "right", -side =>"top", -padx=>"50");

MainLoop();

sub einlesen {

open (AUSGANG, "$ausgang")
or die "Datei kann nicht geoeffnet werden!\n";
}