perl -e 'print sprintf("%o", 0xb400189)'