*{$AUTOLOAD} = sub {my ($self, $newval) = @_; 
                    $self->{$property_name} = $newval };