use strict;
use warnings;

use Tk;

# displayed in entry field as: "09 Handel_ Water Music Suite - Bouré.m4a"
my $str = "09 Handel_ Water Music Suite - Bouré.m4a";

my $mw = MainWindow->new(-title => "  Unicode Test");
$mw->Entry(-textvariable => \$str,
           -width => 50,
           -font => "{Lucida Fax} 12 bold",	
          )->pack(qw(-side left -expand 1 -fill x));
MainLoop();