Actually you almost had it:

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;
[download]

-wrap and -wraplength seem to be synonomous (although I couldn't find that documented). The Tk::options documentation says:

Switch: -wraplength
For widgets that can perform word-wrapping, this option specifies the maximum line length. Lines that would exceed this length are wrapped onto the next line, so that no line is longer than the specified length. The value may be specified in any of the standard forms for screen distances. If this value is less than or equal to 0 then no wrapping is done: lines will break only at newline characters in the text.

I think you are over-thinking things. Why wouldn't something like this be acceptable.

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;

my $button = $mw->Button(
    -text => "Hello\nWorld\nButton",
)->pack;

MainLoop;
[download]