my $lblFuenf= $regZwei->Label(-text => 'Label 5',
-width => 13,
-anchor => 'nw',
)->pack(-side => 'left', -anchor => 'n');
my $txtFuenf = $regZwei->Entry(-width => 20,
)->pack(-side => 'left', -anchor => 'n');