Cool. Thanks!

You need to install the Symbola font for this to work, and you probably need perl v 5.12 at least, and preferrably v 5.14 for the superior unicode handling.

I get the following errors when running the script using Strawberry Perl 5.12.3 for Microsoft Windows:

UCS-2LE:code point "\x{1d000}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d001}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d002}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d003}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d004}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d005}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d006}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
UCS-2LE:code point "\x{1d000}" too high at C:/strawberry/perl/site/lib
+/Tk.pm line 423, <DATA> line 402.
Unable to free colormap, palette is still selected.

This application has requested the Runtime to terminate it in an unusu
+al way.
Please contact the application's support team for more information.
[download]

This is because Unicode 6.0 isn't supported in Perl version 5.12. It was introduced in Perl version 5.14. Unicode 6.0 is the version in which the many symbols, pictographs and emoticons included in the Symbola font were introduced. These characters are in the supplementary planes, not the Basic Multilingual Plan.

So…

…instead of…