package Y;
$VERSION = 0.1;
1;

package X;

my $subs =<<__SUBS__
sub l{ return length shift };
__SUBS__

if ( $Y::VERSION < 1 ){
    use bytes;
    eval $subs;
} else {
    eval $subs;
}
                                                                                                                                                           
# large module follows
                                                                                                                                                           
1;
package main;
no bytes;
$x = chr(3456);
print X::l($x);