perl -e '$i = hex("0x6801"); print sprintf("\%x", $i), "\n"'