#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use Tk;

my $mw = new MainWindow;
$mw->title('Button mit geteiltem Text?');

$mw->Button(-text    => 'ab\ncd',
            -command => sub{print "\a"},
           )
     ->pack(-side    => 'right',
            -expand  => 1,
            -fill    => 'x',
           );

MainLoop();