#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use Tk;

my $mw = Tk::MainWindow->new();
my $f1 = $mw->Frame()->grid();

$f1->Label(-text=>'Startpfad: ')->grid(-row=>0,-column=>0);
my $pfad = $f1->Entry(-width=>50)->grid(-row=>0,-column=>1);
$f1->Label(-text=>'Suchstring: ')->grid(-row=>1,-column=>0);
my $Such = $f1->Entry(-width=>50)->grid(-row=>1,-column=>1);
$f1->Label(-text=>'Ersetzungsstring: ')->grid(-row=>2,-column=>0);
my $Erse = $f1->Entry(-width=>50)->grid(-row=>2,-column=>1);

MainLoop();