$ perl -CSD  -MTk -e " tkinit()->Label(-text, qq/\x{1F642}/ )->pack; MainLoop; "
UCS-2LE:code point "\x{1f642}" too high at .../site/lib/Tk/Widget.pm line 205.
 at -e line 1.