#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use Tk;
#$Tk::encodeFallback=1; 

my $main = tkinit();
my $text = 'contestant has an Š' ;
$main->Label(-text  =>$text )->pack();
MainLoop;