package Foo;
use base 'Class::Accessor::Lvalue';
_ _ PACKAGE _ _ ->mk_accessors(qw(foo bla bar));

sub new { bless {}, shift }

package main;

$foo_obj = Foo->new;
$foo_obj->foo = 123;
warn $foo_obj->foo;