PERL og netværk

Du kunne prvøe følgende, den lytter på port 1200, men det kan du evt selv rette til:

use IO::Socket;

$sock = new IO::Socket::INET (LocalPort => 1200,
                              Proto    => \'tcp\',
                              Listen    => 5,
                              Reuse    => 1,
                            );
die \"Could not connect: $!\" unless $sock;

print \"Before accept\\n\";


while ($new_sock = $sock->accept()) {

  print \"After accept\\n\";

  while (defined ($buf = <$new_sock>)) {
      printf(\"Received buffer = %s\\n\", $buf);
  }
}
close ($sock);