BEGIN {
package Y;
$VERSION = 0.1;
1;
package X;
use bytes;
sub l{ return length shift } 
1;
}
package main;
no bytes;
$x = chr(3456);
print X::l($x);