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