use IO::Socket::INET;
IO::Socket::INET-> new(
	Listen    => 5,
	LocalPort => 10000,
	Blocking  => 0,
	ReuseAddr => 1,
) or die "error:$!";