#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use charnames ':full';

my $mw = tkinit();
my $copy = "\N{COPYRIGHT SIGN}";
$mw->Label(-text => $enc_copy)->pack();
MainLoop;