sub new {
	...
	my $self = $class->SUPER::new;

	$self->{host} = shift;
	$self->{port} = shift;
	...
}