in reply to How to print a Euro symbol (€) in a PerlTk Label widget.

Ive tried using \€ in the sprintf but that doesnt work, nor have the fancier ways of using UTF-8 codes that Ive tried. Any suggestions?

Prove it?

 perl -MTk -e " tkinit->Label( -text => qq{\x{20AC}} )->pack; MainLoop; "