perl5.8.4 -MTk -e 'tkinit->Label(-text => chr(0x20ac))->pack;MainLoop'