$ perl -e'use Test::More tests => 1; ok 1, "\x{2639}";'
1..1
Wide character in print at /usr/lib/perl5/5.8.8/Test/Builder.pm line 1172.
ok 1 - &#9785;