use strict;
use warnings;
use IO::Socket;
	my $sock =
	  new IO::Socket::INET( Listen => SOMAXCONN,
				LocalPort => 5000,
				LocalAddr => 'localhost',
				Proto => 'tcp',
				ReuseAddr => 1,
				ReusePort => 1,
			      )
	    or die "failed opening socket: $!";