(my $text = readini(NAMEN, NAME1, 'text.ini')) =~ s/\\n/\n/g;

$button1 = $mw->Button( -text => $text,
                       -relief => "raised",
               
         -font => readini(SCHRIFT, FONT, 'text.ini'),
               
         -background => "#FFFF00",
               
         -activebackground => "#FFFF00",
                       -command => sub { &print; }
               
               
            }
                        )->place( -x => 55, -y => 50, -height => 100, -width => 200);