$ perl -le 'print ord("5") << 4'
848