sub set_host{
	my $self = shift;
	$self->{host} = shift;
}