22 lines
554 B
Perl
22 lines
554 B
Perl
|
#!/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();
|
||
|
|
}
|