perl -e 'print oct("0b1101") . "\n";'