sub size_in_bytes ($)
{
	use bytes;

	return length shift;
}