sub sethost{
	my $Objekt = shift;
	my $hash_ref = {}; 
	$hash_ref->{host} = shift;
	bless $hash_ref,$Objekt;
}