sub set_timeout {
	my $self = shift;

	my $to = $self->{timeout};

	if (@_){
		$self->{timeout} = shift;
		
	}

	return $to;	
}