Update: Did this question change? I swear that, when I was replying to it, it implied you wanted to get rid of your "our variables"... (I did just wake up though, so maybe I was fuzzy-headed.)

Upon reading it now, it seems you just want a method which accesses a class variable...

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";
[download]

Normally people use globals in part to avoid that sort of thing though. This is what you usually see:

package Foo; 
our $bar = 'some default'; 

package main; 
print $Foo::bar, "\n";
$Foo::bar = 'something else';
print $Foo::bar, "\n";
[download]

My original answer follows...

I couldn't access it from a reference to the package.

There are a number of ways but they boil down to basically the same thing. You can create a function or functions that will be used to access a lexical variable instead. The simplest is just to create an accessor class method:

package Foo; 
my $bar = 'some default'; 
sub bar {
    $bar = shift if @_; 
    return $bar;
}
[download]

package Foo;
my $bar = 'some default'; 
sub bar_ref {
    return \$bar; 
}
[download]

package Foo; 
my $bar = 'some default'; 
sub bar : lvalue {
  $bar;
}
[download]

 print Foo::bar, "\n"; 
Foo::bar = 'something else'; 
print Foo::bar;
[download]

package Foo; 
{ 
    my $bar = 'some default'; 
    sub bar : lvalue { $bar }
}
[download]

-sauoq
"My two cents aren't worth a dime.";