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

use Tk;

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

my $f1 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f1->Label(-text   => 'Startpfad: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $pfad = $f1->Entry(-width  => 50
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

my $f2 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f2->Label(-text => 'Suchstring: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $Such = $f2->Entry(-width  => 50,
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

my $f3 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f3->Label(-text   => 'Ersetzungsstring: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $Erse = $f3->Entry(-width  => 50,
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

MainLoop();