my $foo = new Foo;

$foo->bar(42);   # set it
print $foo->bar; # get it