sub SUBNAME{
	my($this, $VARNAME) = @_;
	
	if(defined $VARNAME){
		$this->{'VARNAME'} = $VARNAME;
	}
	else{
		return $this->{'VARNAME'};
	}
}