my $socket = IO::Socket::INET::->new (  
                                Listen    => 5,
                                LocalAddr => '0.0.0.0',
                                LocalPort => 8888,   # <<<< L I S T E N  on this port
                                Proto     => 'tcp',
                                ReuseAddr => 1); # "Reuse" is deprecated