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

Ba1rdsy has asked for the wisdom of the Perl Monks concerning the following question:

I have a PerlTk app which displays billing information for mobile phone subscribers. Its a win32/64 app so I am using activestate 5.10.0. The particular chunk of code I working with looks like this:

$bill_f->Label( -text => sprintf("\$%.2f",$bill->{RENTAL}))->grid();
$bill_f->Label( -text => sprintf("\$%.2f",$bill->{USAGE}))->grid();
$bill_f->Label( -text => sprintf("\$%.2f",$bill->{OTHER}))->grid();
$bill_f->Label( -text => sprintf("\$%.2f",$bill->{TOTAL}))->grid();
[download]

I need to update the app for European users and one thing they keep asking for is to replace those pesky dollar signs with euro symbols. 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?

Back to Seekers of Perl Wisdom