use strict;
use warnings;
use utf8;
use Tk; 
${^WIDE_SYSTEM_CALLS}= 1;
my $s= "This is a TM symbol => '\x{2122}',\nU+2122";
my $MW = new MainWindow; 
my $hello = $MW->Button( 
    -text    =>  $s,
    -command => sub {print STDOUT $s; } ); 
$hello->pack; 
MainLoop;