Select Code to Download

perl -e 'use bytes; eval q(package Foo; sub len{ length "\x{03c5}"});p
+rint Foo::len()'
2

$ perl -e 'use bytes; do "Foo.pm";print Foo::len()'
1