Select Code to Download

sub set_foo {
  my ($self, $newfoo) = @_;
...
  $self->[2] = localtime(); # track last access
  return $_[0]->[0];
}

$slick->{foo} = 'Some value';
print $slick->{foo}, "\n";

$slick->set_foo('Some value');
print $slick->get_foo(), "\n";

sub STORE {
  my ($self, $key, $val) = @_;
...
    # get normal keys somehow
  }
}