U:\>  perl  -MO=Deparse  -e "print 0x1234"

print 4660;
-e syntax OK