#!/usr/bin/perl -w
use strict;

use Tk;


my $haupt = new MainWindow;

my $links = $haupt->Frame();
$links->Label("-text"=> "Einzulesende Textdatei: ")->pack();
my $edatei = $links->Entry();
$edatei->pack();

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


my $rechts = $haupt->Frame();

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

$rechts->Label(-text=>"Name unter dem die geänderte Datei gespeichert werden soll:")->pack();
my $adatei = $rechts->Entry();
$adatei->pack();

my $aschalter = $rechts->Button(-text=>"Datei abspeichern",
-command=> \&abspeichern
)->pack();

$rechts->Label(-text=>"Statusmeldung:")->pack();
my $status = $rechts ->Listbox();
$status->pack();


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

MainLoop();

}