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

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

my @charsets = Encode->encodings(':all');

for (@charsets)
        {
        $mw->Label(-text => "$_:".encode($_, Win32::LoginName()))->pack();
        }
        
MainLoop;