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