use Socket;

my $port = shift || 7001;
my $proto = getprotobyname('tcp');
my $server = "localhost";

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) or die "Can't set socket option to SO_REUSEADDR $!\n";

bind( SOCKET, pack_sockaddr_in($port, inet_aton($server))) or die "Can't bind to port $port! \n";

listen(SOCKET, 5) or die "listen: $!";

my $client_addr;
while ($client_addr = accept(NEW_SOCKET, SOCKET)) {
  send(NEW_SOCKET,"Hello",0);
  close NEW_SOCKET;
}