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]