#!/usr/bin/perl -w

use Tcl::Tk;
use encoding "big5";
use strict;

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

$mw->Label(
    -text=> "¤j®a¦n!",
    -font=>"taipei16",
    -fg=>"yellow",
    -bg=>"blue",
    -bd=>4,
    -relief=>"ridge"
)->pack(-fill=>"both");

Tcl::Tk::MainLoop();