$ perl test.pl 
_public: Unknown Object Identifier (Sub-id not found: (top) -> _public)