sub new
{
	my $class 	= shift;
	my $self 	= 
	{
		## I do not know parameters ??
	};
	bless $self, $class;
	return $self;	
}