Select Code to Download

package Foo;

...
our @ISA = qw /Foo/;

sub gurgle {my $self = shift; $self -> {key} = shift;}