package House;

 sub new
{
 	my $class = shift;
 	my $self =	{
 			id	=> $_[0],
 			name	=> $_[1],
 			detail	=> $_[2],
                        

		};
 	bless $self, $class;
 	return $self;
 }