use strict;
use warnings;
use Tk;
use Tk::Button;

my $mw =  MainWindow->new (-title => "Test button");

my $forcedWrap = $mw->Button (-text => "Hello\nWorld\nButton",)->pack ();
my $autoWrap = $mw->Button (
    -wrap => 50, -text=>"Hello World Button"
    )->pack ();

MainLoop;