#!/usr/bin/perl -w

use strict;
my ($main);

# use Tk;			#=NIS=#
# $main = MainWindow->new();	#=NIS=#

use Tcl::Tk qw(:perlTk);	#=MBVK=#
my $interp = Tcl::Tk->new();	#=MBVK=#
$main = $interp->mainwindow();  #=MBVK=#

my ($greetings, $t);
# $t = "Hello, world!";		#=NIS=#
$t = $interp->Eval('encoding convertfrom big5 {¤j®a¦n!}');	#=MBVK=#
$greetings = $main->Label(
    -text=>$t,
    -fg=>"yellow",
    -bg=>"blue",
    -bd=>4,
    -relief=>"ridge"
);
$greetings->pack(-fill=>"both");

MainLoop();