setsockopt(SOCK, SOL_SOCKET, SO_REUSEADDR,1) || die "setsockopt() failed: $!\n"; -- or from IO::Socket -- $sock = IO::Socket::INET->new( Reuse => 1, ...Other settings here );