#! /usr/bin/perl
use Tk;
use charnames ':full';

my $top = new MainWindow;

$top->Label(-bg=> 'white', 
                     -font =>['Arial',18,], -text =>"Euro sign: \x80")->pack;

$top->Label(-bg=> 'white', 
                    -text => "This is the euro sign: \N{EURO SIGN}")->pack;

$top->Label(-bg=> 'white', 
     -font => "-misc-fixed-bold-r-normal--13-120-75-75-c-70-iso8859-15",
    -text => "Euro sign: \x80")->pack;

MainLoop;