#!/usr/local/bin/perl -w

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

my $links = $haupt->Frame();
$links->Label(-text=> "Geben Sie die Namen der Ausgangsdatei und der Ausgabedatei ein: ")->pack();

my $ausgangsdatei = $links->Entry()->pack();

my $ausgabedatei = $links->Entry()->pack();

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

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

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

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

MainLoop();

sub action
{
	my $input = $ausgangsdatei->get;
	open(DATEI,"<$input")
	or die "Datei kann nicht ge\x94ffnet werden";

	my $output = $ausgabedatei->get;
	open(NEU, ">$output")
	or die "Datei kann nicht ge\x94ffnet werden";

	undef$/;
	my $text = <DATEI>;
}