#!/user/bin/perl -w

use strict;

use Tk;

my $haupt = new MainWindow;

my $links= $haupt->Frame();
$links->Label(-text => "Geben Sie einen Namen fuer die Datei an:")->pack();
my $ein = $links->Entry();
$ein->pack();

my $schalter = $links->Button(-text => "Eintragen",
               -command => \&eintragen
               )->pack();
               
my $schalter2 = $links->Button(-text => "Beenden",
               -command=>[$haupt => 'destroy']
               )->pack(-pady => "10");

my $rechts= $haupt ->Frame();
$rechts->Label(-text =>"Text Ausgabe:")->pack();
my $daten = $rechts ->Listbox();
$daten->pack();

$links ->pack(-side =>"left");
$rechts ->pack(-side =>"right");

MainLoop();

sub eintragen {
   $daten->insert('end', "". $ein);

}