Select Code to Download

package Thing;

...
}

1;

sub set {
  my $self = shift;
...
    #set class_variable var to $val
  }
}