#!/usr/bin/perl

###########################################################################
# Server, der an einem bestimmten Port lauscht
###########################################################################
use strict;
use IO::Socket qw(SOMAXCONN);

my $port = 8787;

my $server_sock = IO::Socket::INET->new(
	LocalPort => $port,
	Listen => SOMAXCONN,
	Proto => 'TCP',
	Reuse => 1,
) or die "Kann Socket nicht aufbauen";

print "Warte auf Daten an Port $port\n\n";

while(my $peer = $server_sock->accept){
	my $data = <$peer>;
	print $data;
	print $peer qq(<policy-file-request/>);

	$peer->close;
}



#!/usr/bin/perl

###########################################################################
# Einfacher Client, der in ein Socket schreibt
###########################################################################
use strict;
use IO::Socket;

my $socket = new IO::Socket::INET (
	PeerAddr => 'rolfrost',
	PeerPort => 8787,
	Proto    => 'tcp'
) or die "Kein Socket bekommen!";

print $socket "123456789\n";
$socket->close;