#!/usr/bin/perl

use IO::Socket;
use threads;
use threads::shared;

my $socket = IO::Socket::INET->new (
    PeerAddr => '127.0.0.1',
    Type => SOCK_STREAM,
    PeerPort => 2005,
    Proto=>"tcp"
);

my $t = threads->create( \&start_socket, <$socket> );

sub start_socket {
    # hier Socketverbindung bearbeiten....
}

print "Elternprozess arbeitez ungestört weiter\n";

#!/usr/bin/perl

use IO::Socket;
use threads;
use threads::shared;

my $socket = IO::Socket::INET->new (
    PeerAddr => '127.0.0.1',
    Type => SOCK_STREAM,
    PeerPort => 2005,
    Proto=>"tcp"
);


my $t = threads->create( \&start_socket);

sub start_socket {
    while (<$socket>) {
        print "$_\n"; # Antwort vom Server ausgeben
    }
}

print "Elternprozess arbeitez ungestört weiter\n";

#!/usr/bin/perl

use IO::Socket;
use threads;
use threads::shared;

my $socket = IO::Socket::INET->new (
    PeerAddr => '127.0.0.1',
    Type => SOCK_STREAM,
    PeerPort => 2005,
    Proto=>"tcp"
);


my $t = threads->create( \&start_socket);

sub start_socket {
    while (<$socket>) {
        print "new Request\n";
    }
}
sleep(1); # Warten bis Kind geboren ist

print $socket "An das Kind\n"; # Vater schreibt an die Socket

sleep(10);
close($socket);