package My::AnyPackage; use base 'AnyPackage'; sub can_read { 1 };