1 2 3 4 5 6 7 8
package bytes; sub length ($) { BEGIN { bytes::import() } return CORE::length($_[0]); } 1;