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