package Foo;
our $bar = 'some default';  
sub new { bless {} }
sub bar { shift; $bar = shift if @_; $bar }

package main; 
my $obj = Foo->new;
print $obj->bar, "\n";
$obj->bar('something else');
print $obj->bar, "\n";