>perl -CSD -we"print chr 0x2660" | perl -CSD -we"printf qq{%X\n}, ord <STDIN>"
2660

##</code><code>##

>perl -CSD -we"print chr 0x2660" | perl -CSD -we"printf qq{%X\n}, ord <>"
2660

##</code><code>##

>perl -CSD -we"print chr 0x2660" > foo

>perl -CSD -we"printf qq{%X\n}, ord <>" foo
2660