Select Code to Download

{
  package Foo;
...
    $self->( 'bar', @_ )
  }
}

my $foo = new Foo;

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