my $server = IO::Socket::INET->new(...., Reuse => 1);