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