>perl -le"print length unpack 'a4', qq{\0\0\0\0}"
4