my $socket = IO::Socket::INET->new(
   ReuseAddr => 1,