my $class = shift; my $self = {...}; bless ($self, $class); $Client = new IO::Socket::INET ( ...); $self->{Client} = $Client;