#!/usr/bin/perl -w

$PF_INET = 2;
$SOCK_STREAM = 1;

$port = 9999;

$pattern = 'S n C4 x8';

# Create an address using 0.0.0.0.
$this_addr = pack($pattern,$PF_INET, $port, 0,0,0,0);

$proto = getprotobyname("tcp");

socket(SERVER, $PF_INET, $SOCK_STREAM, $proto) or die "Can't create socket: $!";

bind(SERVER, $this_addr) or die "Can't bind: $!";

listen(SERVER,1) or die "Can't listen: $!";

print "Server listening on port $port\n";

for ( ; $paddr = accept(CLIENT,SERVER); close(CLIENT) ) {
    print CLIENT "Hello from server.\n";
}