my $server = new IO::Socket::INET(
Proto => "tcp",
LocalPort => 7001,
Listen => 5,
Reuse => 1) || die "failed to establish socket\n";