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;