my $val = 'äöüߤ';
utf8::encode($val);
$val = Encode::decode("cp1250", "$val");
my $mw = Tk::MainWindow->new();

my $l1 = $mw->Label(-font => $mw->Font(-family=>'Verdana'), -textvariable=>\$val   )->pack();