package Thing; my $class_var = 1; sub new { return bless {}, "Thing"; } sub set_class_var { $class_var = $_[0]; } 1; #### sub set { my $self = shift; my %args = @_; while( my ($var, $val) = each %args ) { #if $var is defined #set class_variable var to $val } }