Why stop at "\N{UPPER RIGHT PENCIL}"? There are interesting characters up through 0x2ffff so far. Try something like (untested):

map { use 5.008; use charnames (); my $name = charnames::viacode($_); 
+$name ? ("$name ($_): ".chr($_)."\n") : () } 32..0x2ffff;
[download]

to show the names and filter out the unused code points. (Probably will slow it down a lot, though. Going directly to Unicode::UCD would be faster.)