perl -e 'printf "%d\n", (4<<24)+(3<<16)+(2<<8)+1')