C:\> perl -e "printf q{%X}, 129489"
1F9D1
C:\> perl -e "printf q{%d}, 0x1F9D1"
129489