perl -wMstrict -le 'print unpack("i",pack("B32","00000011"))'
3