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