Select Code to Download

sub accessor {
    my $self = shift;
...
    }
    return $$self{key}; # Gets the attribute.
}

my $obj->key1(value1)
       ->key2(value2)
       ->key3(value3);