#!/user/bin/perl -w

use strict;

use Tk;

my $counter = 0;
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', $counter."". $ein->get());
   open(FH,">>nickjag.txt") or die $!;
   print FH $counter," ",$ein->get(),"\n";
   close FH;
   $counter++;
}