BEGIN { package Foo; use bytes; } use Foo; package main; print Foo::len(), "\n";