sub new
{
	my $this = {};
	bless $this;
	return $this;
}