perl -e '$a=017; $b=0x17; print "$a $b\n";'
15 23