my $Anzahl = `wc -l 2>/dev/null text.cfg | cut -b1`; ###wieviele  Pfade wurden definiert

for my $v( 2 .. $Anzahl ) {	###erzeuge einen Rb fuer jeden Eintrag in der text.cfg
    
    $lokal= `cat text.cfg | head -$v | tail -1 |cut -b1-20`;
    chomp($lokal);
     
    my $rb = $tab3->Radiobutton( 
    -variable => \$var, 
    -text => $lokal, 
    -value => $v,
    -command=>\&getPfad);
    $rb->pack;
     push @radiobuttons, $rb     
}

sub getPfad
{
	$pfad_lokal= `cat text.cfg | head -$var| tail -1 | cut -b25-128`;
	$pfad2_lokal=  `cat text.cfg | head -$var| tail -1 | cut -b130-256`;
	chomp($pfad_lokal);
	chomp($pfad2_lokal);	
}