#!/usr/bin/perl -w
use IO::Socket;
$port = 9999;
$server_socket = IO::Socket::INET->new(
LocalPort => $port,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1)
or die "Cannot open socket: $!";
print "Server listening on port $port\n";
while ( $client_socket = $server_socket->accept() ) {
$client_host = $client_socket->sockhost();
print $client_socket "Hello from server.\n";
print "Sent message to client on $client_host.\n";
$client_socket->close();
}