#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
my $text = "\x{1F642}";

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

MainLoop;