sub new {
	my $class = shift || __PACKAGE__;

	my $self;

	if ( scalar @_ == 1 ) {
		( $self->{RemoteAddr}, $self->{RemotePort} ) = split( ':', shift );
	}
	else { $self = {@_} }

	foreach (qw(RemoteAddr RemotePort)) {
		confess $_ . " was not cofigured" unless $self->{$_};
	}

	$self->{FuzzLevel} ||= 1;
	$self->{Debug}     ||= 0;
	$self->{Path}      ||= 'report.html';
	$self->{Report}    ||= 0;
	$self->{Ready}          = 0;
	$self->{Socket}         = undef;
	$self->{LastSentFinger} = undef;

	bless( $self, ref $class || $class );
}