our %SharedSockets; # keep the created sockets to survive

sub new(){
    my $class = shift;
    die("Not an instance method") if ref($class);

    
    my $self = &share(bless({},$class));
    $self->{"closed"} = 0;
    
    my $socket = new IO::Socket::INET(@_) or die("SharedSocket $!");
    $socket->autoflush(1);

    
    $self->{"closed"} = 0;
    $self->{"socket_fd"} = $socket->fileno;
#   push(@SharedSockets, $socket);
    $SharedSockets{$socket->fileno()} = $socket;
    
#   print("[SharedSocket::ctor] fd: " . $self->{"socket_fd"} . "\n");
    
    return $self;
}