unless($child) {
        $SIG{CHLD} = sub { exit 0; };
        $socket->close;
        my $peer = gethostbyaddr($session->peeraddr,AF_INET) || $session->peerhost;
        print "Verbindung von $peer auf Port $port akzeptiert ($$)\n";
        print $session "Hallo $peer\n";
        while(<$session>) {
            print $session "test\n";
        }
        print "Ende ($$)\n";
        exit 0;
    }
    print "parent ($$)\n";
    $session->close;