#!/Perl/bin/perl
use strict;
use Tk;
use Tk::Font;
use Encode;
use utf8;

# l1
my $val = 'äöüߤ';
utf8::encode($val);
Encode::from_to($val,"cp1250","iso-8859-1");
#Encode::from_to($val,"iso-8859-1", "utf8");

# l2
my $octets = Encode::encode("iso-8859-1", $val);
#print $octets;

my $mw = Tk::MainWindow->new();

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

MainLoop;