use strict;
use warnings;
use utf8;
use Tk;

my $mw = MainWindow->new;
my $text = "🙂"; 

$mw->Label(-text => $text)->pack;

MainLoop;