# Look ma, no module! sub get_attribute {$attribute {refaddr $_[0]}} sub set_attribute {$attribute {refaddr $_[0]} = $_[1]}