#!/usr/bin/perl

use strict;

use Tk;

my $haupt = new MainWindows;

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

$links->Label(-text=>"Ausgabe:")->pack();
my $datei=$links->Entry();
$datei->pack();

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

my $schalter2 = $links->Button(-text=> "Speichern",
              -command => \$speichern )-pack(-pady=> "20");


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

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

MainLoop();