BEGIN { package Y; $VERSION = 0.1; 1; package X; if ( $Y::VERSION < 1 ) { # How to enable use bytes for the whole modue X? # with condition $Y::VERSION in mind? use bytes; } sub l{ return length shift } # large module follows 1; } package main; no bytes; $x = chr(3456); print X::l($x);