my $links=$haupt->Frame();
$links->Label(-text => "Eingabedatei: ")->pack(-pady=>2);
my $in = $links->Entry(width=>50);
$in->pack();